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(57) Abstract: A method and system for visually annotating an image. Annotations 
and notes to images, such as digital medical and healthcare images, may be stored in 
a structured vector representation alongside image information in a single, non-volatile 
and portable file or in a separate file from the image. The annotations may be composed 
of point, line and polygon drawings and text symbols, labels or definitions and captions 
or descriptions. The annotations may be structured in a manner that facilitates grouping 
and manipulation as user defined groups. The annotations may be related to an image but 
not inextricably bound such that the original image is completely preserved. Annotations 
may further be selectively displayed on the image for context appropriate viewing. The 
annotations may be retrieved for purposes such as editing, printing, display, indexing 
and reporting for example, and may be displayed on an image for interactive use with an 
embedded self-contained user interface. 
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^^^P^ ANNOTATION AND KNOWK 
„. , BACKGROOND 
5 1. The Field of the Invention. 

T £f pi i esent invention relates generally to a method and system for annotatina an i mflno 
more particularly, but not necessarily entirely, to a computerized method and systm foV^rfatinS 
storing, displaying and associating structured, vector based, interactive visGalTnnof«?f«n^ »^ 
interactive visual notes (also referred as "IVN") with a digital image viaual annotations and 

10 2. Description of Background Art. y 

^ +~ ^ n ,?. tati ^ n 1 ?f visual material is a necessary activity, one that represents an important part 
of teaching, publishing and communicating visual information. Since the widespread^ Adoption of 
computers and especially the Internet, the use of digital images in co^puter-Tssisted presentation! 
has grown tremendously. Doctors, educators, geologists, architects, engineers ^ scientists a?e 

15 examples of professions where the use of digital images is becoming more lidesoread 

4 Iraage annotating, in a broad sense, includes any technique which allows an author to label 
point to or otherwise indicate some feature of the image that is the focus of atw^n 
textual commentary. Providing an individual with the ability to add s^Sbols l^b*?* *Ao ^f™! 
to describe the contents of an image or to convey a concept and direcTthe viewer to im^rtanl 

20 features of an image has been established for decades. it has been loner accented f\**r 2^??Jm?£« 

o? P \nTere°st%hat i fs ti uni^ t0 ^^^gJSSS^iS&B'VfSSS^ 

„ J eres h. C na 5 ls unique fc o an image allows an author to convey intellectual information 
f??o rd i ng v„ he structures in the image itself. Traditional methods for annotating imaglThave 
^ t^f** aut hors to place pointers, textual information and labels to indicate ^t^tSr^^ML^d 
25 in an image but that information remains static. Moreover, to change annotated features on an 
of ten requires that the author scrape off the rub-on labels and ltar™over or tc .reprint the 
image and start over with annotating the features of the image. reprint tne 

• w Today, digital image data is generated from a vast array of electronic devices and with the 
™ acc f> tance of the use of computers to accomplish the tasks of annotation gives rTse to that 

^L t H^ a IDai V y K aPPllC t tl0 , 1 }t- haVe , been desi 9ned to give authors the ability to annotate llertronic 
i^?? d t^ a * K he Same traditional sets of tools that have allowed authors to prepare image data for 
P^i? atlon have essentially been reproduced in an electronic environment and canbe used in 
addition to, or completely replace, traditional tools for annotating images. 
,, „ , Digital images are typically stored as raster images, also referred to as hitman imsn.=>«! 
35 o?^ e % 0 // 0r ^ tS that Sre raster based include JPEG, GIF, BMP, PNM^ TIFF° PPM? ^and^any 
others. Raster images are generally defined to be a rectangular array of regularly sampled "values 
A* plxel . s F - . Each P ixel (Picture element) has one or more numbers associated with lit 
^*™t X1 L S ?*Z?- fyi -?£ a COl °5 wh i ch u the P ixel sh °uld be displayed in. Most formats for raster 
40 datr^eded'tfeLoartbr^ge^ * b °™' ^ Pi * el to shrink the size o/tne 

inarr^ Au thors ofdigital material are finding that creating, presenting, and cataloging digital 
images is a difficult task despite the technologic improvements. Visually annotatino or 
o^HTW dl 3 lt al images with symbols and text is a fundamental task many users of™^g\s^mus£ 
?5ff2f?„j£Si Preparing material for illustration. For example, clinicians and biomedical 
45 investigators must make visual annotations when preparing material for illustration. 

ow^r^V^ 1 otatl ? a visual media has evolved from scratch-on LETRASET® dry transfer labeling to using 
ISSSSf i ve A s °Phisticated and complicated image manipulation computer software like ADOBE® 
PHOTOSHOP® or MACROMEDIA® FREEHAND® software. At the same time, the need to illustrate images with 
50 wh??£ ™? S n rB ?? r ? S Ver ? (sy^ols, labels, shapes and arrows) and remains a simple task 

&b ti S cer tainly have large drawbacks, i.e., they cannot be used for annotating 
digital images, they embody the simplicity of annotating an iitage quickly with the necessarv 
h? CT h E S a «r^-o f S ° P ^i StiC H at v ed s of tware, while capable of generating limjle annotations, retires a 
whit ft 9 ?n Sf. i£rf 1 = n « d !m £n 1 OWl < edg v to ^vigate the complexity of options and functions to achieve 
^ JliSlUii' £5.™ a s^Ple task. Moreover, the previously available systems and methods do not 

limSllcitv ?SS2S^5 h a user ' neither in their output nor in their presentation. Thus, 
f^?£ii?, V ' interactivity and low cost continue as unsatisfied objectives for the process of 
effectively annotating visual digital material despite technologic improvements. 
«„„„4. a J^„ 13 ii° st imag ® manipulation software functional overkill for creating simple 

60 ifhfi', ^1°$,*??* flattens images where the annotations are "fixed" to the image much like 

S£ ™ T £^? lat H en ^ ng of image annotations causes several problems that also existed with 

rub ; on * ab ^ s: editing difficulties, poor image quality, lack of interactivity and information 
loss. These problems are further illustrated below. 

4 ma „« r^^t ti0n? are K not ? a ? i;L Y edit ed in a flattened image. The process of editing a flattened 
fi5 fhf g ",?SSi" 8 " s A ng the 0 * lginal image-often in a proprietary format-in the native environment of 
65 ^ e aU ^° r ^ g S e °^ tware - Tnls Process requires locating the original (not the presentation image 
5» r f J$ < . ajI ? age °r images-typically on a local hard drive-making the changes and then 

b ^ ng that image to the various publishing targets: Internet/WWW, paper-based copies, and 
Iho^ - i->H ^ e original image is lost then the annotations must be completed again from scratch. 
70 ££^J?n 'niSTS ? SSd * ?2f Process-locating an image, making changesT then redistributing the 
/u image-can attest to the time and frustration involved. 

Previously available systems and methods, annotations when flattened become part of 
tne raster-based (drawn with pixels) image as opposed to being stored as vector (drawn in true 
physical space) information. As the raster annotations are re-scaled (zoom in or oSt) their 
appearance often become incomprehensible. ' tneir 

75 =^^^^^"L a ^ ten t n9 of annotations to an image means not only that the annotations cannot be scaled 
a °?o£ d i ng i V ' means that the annotations cannot be manipulated in other ways, such as, creating 
» n n o? a f^X! Presentations for the purpose of communicating a visual relationship or integrating the 
23,V2*° a 1 lear .ning assessment tool. Since the Internet has emerged as a viable medium to 
flo de «tI e L tl0na i . mat erials, presentors are more often using the Internet to provide computer- 
80 a f"sted presentations of educational material. Moreover, providing computer-assisted 
a of S £S S - haS beCOI T eaS1 A r than ever with the advancements in technology, compter hardware, 
iS £ r^n^lia? rovemen ts in the Internet and World Wide Web as delivery a mechanisT. For example 
anatSnv ^ £ *~ n*? 1 ?- an atomy it may be necessary to illustrate the neurology and gross 

85 iSS^a^^S^^'iJ^^i' ^ als ° ^ useful to hide or turn off the gross anatomy in order to 
It ^ e neurology then turn the gross anatomy back on to illustrate the relationship (s) 
T^o^ n £ h U W ° growings. This scenario could be solved with raster images, however, it would 
f t fif, 6 . t • ^5 ages J? n< l Wlth neurology, one with gross anatomy, and one with both. Thus, there 
=5f U rimes the effort to produce this basic level of interactivity. Additionally, If these 
images are being viewed on the Internet it would mean three times longer wait in addition to the 
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\abor and disk space utilized in producing three images. As the interactivity of an educational 
orelentation increases the effort involved with raster images will grow exponentially 
presentari possibly the most significant problem arising from flattened annotations is 

the loss of information. For example, in the situation of medical research and instruction, 
5 scientists, teachers, physicians, residents and students go to a network, such as the Internet, 
Ixoectina to find resources on a particular topic by entering a keyword or phrase representing the 
subiect or title of their objective. In order for a resource to be found, information about that 
resource must be indexed or cataloged like the age-old library card catalog. , ni . a „ ni . or , ini . n 

resource ^ges are one example of the valuable resources that need to be integrated into 

10 a cata w or index in order to be found and to realize their value. Annotated images offer more 
value \hV the base image in that there is intellectual or authored content assigned to the 
features of the I^| e providing instructive value beyond the image itself. The annotations are 
teatures ; ot we J*£ f n order to index the annotated image this and other 

information^Itadata-about the image (subject, keyword, format, date created, copyright, etc . I must 

15 be cataloged. However, annotations that are flattened to the image are not available for 
cataloging. Either the content of the annotations is lost or the annotations must be entered again 
into another system and associated with the image. This de-coupling of content from the uage and 
re-entry of the annotations into a separate storage system which is required when using the 
previously available systems and methods results in a more labor intensive, complex and disjoint 

20 P rocedu ^ ther disadvan tage to using a flattened image is the inability to allow "^specialty 
authoring. Multispecialty authoring is the ability to add visual annotations, stored as f roups, 
According to authorship. Often it is necessary that several different individuals annotate the 
«le For example, several different specialties in the medical field may need to annotate 

25 an x-ray image. Using a flattened image, this would be extremely difficult. . „, to 

25 an x ray^i g ^mOnt* to flat tened images is that it is difficult to modif :y ^°^ted images to 
make them context appropriate. Annotated images often contain annotations that *ffi™**& x f£i?£ 
fhe nersons viewing the image for a variety of reasons. For example, this might include 
information that Is prohibited from being disseminated by privacy laws or simply information that 

30 is irrelevant givtn the audience. Removing or hiding from view the annotations from a flattened 
in*™ ft not efficient due to the fact that the annotations are embedded in the image. 
lma9e Lixi anlther drawback to the use of flattened images is the difficulty in reusing the 
annotated iinaae Reusing images in a variety of different mediums is an attractive option for 
abhors Authlrs will of ten decide to publish annotated image data to a variety of media. Some 

« oublish in traditional peer reviewed journals and textbooks and others will want to publish 

annotf^d material to the World Wide Web. Moreover, the context in which an image will appear may 
re^lre^at^he'contentr bo?h image and annotations be V^^J^^^J^J^L^ 
wlit 4-4- 4 ma «« = rrT-^^t- HmI work must be duplicated to provide suitable nattenea images iui 
Lcn context Thus Il ls in the bes? interest P of the system architect and the author to create 

40 an Ilrcn?ve Lage with associated annotations and store annotations as vector information or text 

data " Reuse (linkinq or referencing) enables authors to easily and accurately link information, 

nnhiiration fe a . PDF, HTML, etc.)* Another form of reuse is ln-system digital reuse or e *^ s ]:?;22 

50 different contexts, such as on a world wide web page, in a print document, or in the portable 
document fo^t (PDFK previously available methods and systems are thus characterized by 

Ss^-ssss & s^ss&rass.. a sss%sstfs 

55 utilizing the methods and structural features described herein. 

DESCRIPTION OF THE DRAWINGS 

The features and advantages of the invention will become apparent from a consideration ot 
the subsequent" detailed description presented in connection with the accompanying drawings in 

60 WhiCh! FIG. 1 is a flow chart showing the steps carried out in accordance with one illustrative 
embodiment of the P-sen^invention^ & ^ features of one 

lllU ^7\rtSStfft2 an^l^Tof^In^tated image in accordance with one aspect of the 
65 P resen y ( n 7 e 3 n B ti i °^ ustrates the non-embedded nature of the annotations in FIG. 3A in accordance with 

one aspect of ^P^^St^Siv the steps carried out in accordance with one illustrative 
70 "* 0 ^£ 0 »%^"^ interactive nature of the annotations in accordance with one 

aspect crfthe ^^.invention^^ ^ ^ ^ ^ accordance with one illust rative 

embodiment o^ .the Present^inve ntxojy^.^ th? mul t isp ecialty annotation features provided by one 

•75 illustrative embodiment of the present invention. 

75 illustrative emooaxm DETAIIiED g ESCRIPTIOH OF THE ILLUSTR ATIVE EMBODIMENTS 

For the purposes of promoting an understanding of the principles in accordance with the 
invention reference will now be made to the illustrative embodiments described herein. It will 
nevertheless^ understood "that no limitation of the scope of the ^ti^ is tl^y ont^dg. 
80 Any alterations and further modifications of the inventive 

additional applications of the principles of the invention as ^^S^^mIos^ a?Tto 

normally occur to one skilled in the relevant art and having possession of this disclosure, 

be considered within the scope of the invention described an d c laired. describe the background 

The publications and other reference materials referred to ^"^^f^l^fnSra^ 
85 of the invention and to provide additional detail regarding its » A« c ^_ *™ ^^i^JgxSure 
by reference herein. The references discussed herein are provided solely for tneir 
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prior to the filing date of the present application. Nothing herein is to be construed as a 
suggestion or admission that the inventors are not entitled to antedate such disclosure by virtue 
of prior invention. Further, it must be noted that, as used in this specification and the appended 
claims, the singular forms "a," "an, M and "the" include plural referents unless the context clearly 
5 dictates otherwise. 

In describing and claiming the present invention, the following terminology will be used in 
accordance with the definitions set out below. 

As used herein, "comprising," "including, " "containing," "characterized by," and grammatical 
equivalents thereof are inclusive or open-ended terms that do not exclude additional, unrecited 

10 elements or method steps. 

As discussed above, the main drawbacks which accompany the previously available flattening 
image annotations results in a variety of undesirable side effects: repetition of work, increase 
in authoring effort, increased organization requirements, increased complexity, difficulties to 
automate image cataloging, reduced instructional capability. All of the problems associated with 

15 the use of raster based images can either be eliminated or reduced substantially by not flattening 
the annotations to the image by the use of storing the annotations as vector based graphics . 

With these objectives in focus, the illustrative embodiments of the present invention will 
define the requirements of a digital non raster-based annotation architecture and annotating 
methodology for digital images that will serve as a basis for use in a number of exemplary areas: 

20 authoring tools, presentation programs, and cataloging systems. The solution which is desirably 
provided in accordance with one aspect of the present invention is to separate the annotation 
information from the image information and at the same time attach or store the annotation 
information with the image file as vector-based text information. This method makes the 
annotations and metadata accessible, for example accessible to a user performing text searching for 

25 pertinent information, while still keeping the image and annotation information linked together. 

The features and advantages of the invention will be set forth in the description which 
follows, and in part will be apparent from the description, or may be learned by the practice of 
the invention without undue experimentation. The features and advantages of the invention may be 
realized and obtained by means of the instruments and combinations particularly pointed out in the 

30 appended claims . 

The present invention contemplates a system and method that allows annotations to be captured 
in a non-raster format. Because the annotations are stored in a vector file that is linked to the 
image file, the annotation will travel with the image information and the process of editing image 
annotations becomes much easier. As used herein, a "vector image" or "vector information" means 

35 a graphic comprising shapes, curves, lines, and text which together make the image. These shapes, 
curves, lines, and text can be constructed using mathematical formulas or other instructions as is 
known in the art to describe them instead of defining a grid of pixels as is the case with raster 
or bitmap images. A vector image can be in a two or three dimensional format. 

With vector based image annotations it is not necessary to manage multiple original versions 

40 in a proprietary format or distribute multiple copies of the same image. The annotations remain 
accessible—at any time— for editing in the published image (the one most easily retrieved) without 
reverting to prior versions or copies. Thus, image annotation workflow is streamlined while at the 
same time reducing disk space usage. 

Separation of the annotations in accordance with the present invention in this way makes it 

4 5 possible for a computer to catalog the resource automatically by "looking into" the resource itself 
for the annotations and metadata rather than requiring a person to enter this information into a 
separate system. Thus, the present invention's exemplary separation of annotations of an image 
simplifies and facilitates the automated cataloging of image resources improving the retrieval and 
increasing the value of image resources. 

50 Referring now to FIG. 1, a process and methodology for annotating digital images with vector 

annotations is shown in accordance with the principles of the present invention. The first 
illustrative step is to open an image file (110) to annotate. Typically, the image file is a 
raster based image, for example a bitmap image and can be an image stored in one of many available 
formats such as, without limitation, JPEG, BMP, PNM, PNG, TIFF, and PPM. PNG as an image format 

55 is useful because it is supported by most image manipulation programs and, more importantly, 
because the PNG file itself can be used as a storage container for other types of information in 
addition to image information. 

The image typically resides in a permanent storage medium such as on a hard drive, CD, DVD, 
flash memory or other similar storage device. The image can stem from any number of sources 

60 including, without limitation, a scanned image, a digital photograph, a work created on a computer, 
such as an architectural drawing, computed tomography, magnetic resonance image or any other valid 
source for a digital image. The image can be in a two dimensional or three dimensional format. 

Once the image has been selected and opened (110), the next step is for the author to 
annotate the image (112) . Typically, the step of annotating an image (112) can include several 

65 different substeps depending upon the needs of the author. Generally, an annotation will include 
one or more of the following: a region of interest, a pointer, and textual information such as a 
symbol, a label and/or a caption. The visible portion of the annotation on the image may include 
the region of interest, the pointer and the symbol. The region of interest, pointer and symbol may 
allow a medical educator, for example, to identify anatomical structures that convey relevant 

70 information about that image. Each of these will be defined in more detail below. 

The region of interest is the visible portion of the annotation that is of interest. For 
example, in the medical field, a region of interest could be a feature or structure on an image 
(e.g., pathology, tumor, nerve) that conveys a clinical or research finding. While any manner to 
mark the region of interest will suffice, an author generally draws a point, line, or polygon to 

75 indicate a region of interest. The region of interest may be described by a set of points that 
may define a polygon, polyline or set of points, for example. A polygon may be used when the 
region of interest is a well-defined area, the polyline (or edge) may be used when the separation 
of regions is of interest and the points may be used when the interesting features are too small 
to practically enclose with a polygon. 

80 The pointer for the annotation is partially defined by the author and partially computed 

based on where the author initially places it. For example, the author selects where the tail of 
the pointer should appear, and an algorithm calculates the closest point on the region of interest 
to place the pointer tip. This dual mechanism for anchoring the pointer allows the author to make 
choices about the layout of visual information on the image, without relying on a totally 

85 automated, and potentially unpredictable, layout algorithm. It is also within the scope of the 
present invention to utilize free from placement of pointers. 
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The textual information that is defined by the annotation methodology and includes the 
svmbol label and caption. Providing the ability to add textual information about the annotation 
enables the author to comment or add their expert knowledge on contents of an image in the form of 
t svmbolT label and caption. The comments may refer to a detail of the image or the annotated 

5 imloTas a whole. The symbol, label and caption are a set of information commonly used across many 
fields, but may have specialty-specific terminology. . . 
tieids, p that £ s cus tomarily associated with a visual piece of the annotation is taken from 
the textual information that is derived from a lexicon or free text entry. In the one illustrative 
embodiment of the present invention, the symbol is an abbreviation, typically derived from the 

10 fabel The character length of the symbol allows it to be drawn on the image with .numerous sets 
of other annotations, without obscuring visual information or interfering with the other 
annotations When the symbol is used in this manner, it may be used as a key to link the visual 
Annotation to the ^ textual information. As mentioned, the symbol may be derived from a lexicon 
relating to the field in which the author is working. The symbol may be a lexicon specific piece 

1S o? textual information that allows the annotation to be linked to a larger body of information 
outside the ImjSff For authors who do not use predefined lexicons during the authoring process, 
the svmbol may be enough to match the annotation with external information. 

the symDoi may _oe «£"9 phrase that defines the visual annotation. For medical purposes, 

this laSel m£ ' also be f taken f rom a lexicon or vocabulary., which enables dictionary-style lookup 

20 in the software implementation. The lexicon-specific piece of textual information allows the 
annotation to l>e linked to a larger body of information outside the image. For authors who do not 
use lexicon! during the authoring process, the symbol may be enough to match the potation «th 
external information. The illustrative embodiments of present invention does not restrict or 
define lexiconTbecause use of lexicons is the author's preference or institution's Policy. If the 

25 libel is drawn from a defined lexicon, it should at least be consistent across the author s work 
laoei is a defined as a sentence or paragraph that describes the annotation .. The 

description may include references to other pieces of information that may be part of an index or 
hypertext systemT The caption should not contain information about the image as a whole, which is 

30 ^^3^ ^^^S^oSS^^'^t^ar should also be able to determin e the 
oresentation attributes. The presentation attributes define how the annotations should be drawn 
Shen rendered The visible parts of the presentation attributes may also be interpreted 

dilferently depending on he medium (e.g. laser printer, journal article or web browser). The 
prestation attributes may include size, color, pointer type and tip l° c ^on 

35 Illustrative of the embodiments of the present invention, each of the attributes may nave 
only three or four options presented to the user to provide better control °^ e * n ^ s ^Ho" ?hf 
annotation reuse. All presentation attributes in the present invention may be guidelines for the 
rendering and reuse of visual characteristics including fonts, sizes and colors. The Hypertext 
Markup Language (HTML) has used this approach with success. . . . . __n rfci * a „n- anrt 

40 MarKUp ThT^ptions for the annotation size attribute may be, without limitation, fmall, default and 
large, for example. This option controls the size of the pointer and associated text /« nde ,f^ with 
the visual annotation. The options for annotation color may be, without limitation, "9**, 
Mxff J.tiV" anrt "dark » for example This option may control the color of the region of interest 
(polygon), S ?he potnre/and^text that if rendered, as part of the annotation . The color that 

45 each of the three-color attributes map to may be defined in a style „sheet. _ . arrow . and 

The Dointer type options may be, without limitation, spot, line, pin, """" 
"arrowhead,^ for ex^Tple. Other pointer types may be added, but these four options form the 
illustrative foundation for the kinds of pointers that may appear with the region of u£»"«t. The 

so style ir££M2?sa onf rifus^rv^ a 
elb^r^^ 

55 • m6oau SS^ the imafe has been annotated, the next step is to save the armotations and metadata, 
if orese**! as vector information linked to the image (114). The term linking, in addition to its 
normal meaning, also means, for the purposes of this application to save the v ector information 
inside the image file itself or as a separate file. Some image formats, such as PNG, allow the 
vector S^^^&MttSt^ advan^fo saving^th" annotations and metadata as vector 

6 infn™ a H 0 n i s that vector based annotations improve the quality of image presentation because the 
annexions can^rl-dram^r "tcXd dynamically based o\ theix [^3^^^*^ .he'viewer 
snace of the imaae. Therefore, image annotations can be shown clearly at all scales as tne viewer 

the Misentation (zooms in or out) . In the same way that annotations can be scaled they 
65 can S a?so S be dynamically "mnipu^ated to create instructive and exciting interactive presentations, 
integrated into a learning assessment program, or other goal oriented task. i- n 
int egr area ' ln ^ a J- e with the illustrative embodiments of the present invention, it is possible to 
store t£t 'ISfSEti™ ^ sue? as vector-based image annotations and metadata inside the ^age file 
alono side the actual image information. The metadata includes any additional information about 
70 Ine image or annotations that may be useful. For example, the metadata ^may ^lude the names of 
Persons adding annotations to the image, including the date and time that the ^. a ^°^° n [ s we .£* 
oerformed The metadata may also include patient information in the case of medical images, ine 
m^ada?a may alsT include the names of persons who have viewed the image or annotations and the 

date and tgeot '^^SS&^m inside the image file along side .the .actual ^^nf^ion 

80 interactive oisplay annotation drawing, publishing to multiple targets and cataloging. In. this 
manner, storing metadata and vector-based annotations as text inside the image file, this 
information can more easily "travel" with the image information. ™>t-hod is to store 

while, the vector information can be stored in any format, one preferred method is to score 
the vector Lformat?on ^ Language ("XML «) format. This ^fhodology ensures 

85 that annotations remain accessible as vector data, not .embedded 1 in > the ^image as well as maintain 
the links between the image and annotation information. It will be appreciated rnar ^^""a 
vector information in the XML format allows the annotations and images to become re usable. 
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Moreover/ with vector-based Image annotations, management of multiple original versions in a 
proprietary format or distribution of multiple copies of the same image is not necessary. 

Further, in accordance with the illustrative embodiments of the present invention, the output 
is not platform specific. Rather, the output format may utilize the Scalable Vector Graphics 
5 ("SVG") format, which is an extension of the eXstensible Markup Language (XML) specification. 
Metadata that includes visual annotations, author information, lexicons and information related to 
the authoring sessions are stored within the file. SVG facilitates extensibility, interactive web 
viewing, and reuse. SVG also allows the annotations and visual expert knowledge (i.e., labels and 
captions) to remain linked to the image, as opposed to embedding the annotations to the image. To 

10 facilitate the interactivity of the annotated images, the illustrative embodiments of the present 
invention utilize Adobe's SVG plug-in (Adobe Systems, San Jose, California) for viewing annotated 
images over the Internet. 

It will be appreciated that this form of output facilitates cross-media distribution. Cross- 
media publishing is a term that defines a set of methods that allow source material to be collected 

15 at a single source in a manner allowing reuse and redistribution across multiple delivery channels 
such as the Internet, electronic books, textbooks and presentations. For example, the medical 
content market development continues to be a thriving industry that ranges from standard textbooks 
and references to digital subscription services and web portals. In other words, an image 
annotated using the present invention is easily transported from one form of media to another form 

20 of media. 

The present invention has been developed for the cross media publishing and digital content 
authoring markets is designed to integrate into existing systems for visually annotating images 
that are to be used for publishing in textbooks, on the Internet as a subscription Continuing 
Education module or on CD-ROM. 

25 FIG. 2 illustrates an exemplary image that might be displayed on a computer screen that has 

been annotated pursuant to the an illustrative embodiment of the present invention as explained 
above. This example is useful for understanding the different features of the illustrative 
embodi ment of the present invention and should not be construed as limiting in anyway. As can be 
observed, several regions of interest have been marked on the image. One region of interest, 

30 indicated by reference numeral 118, is noted by the label 122 "Cyst" which is connected to the 
region of interest 118 by a pointer 120. Also, a caption 124 and symbol 126 for the region of 
interest 118 can be observed. In this manner, it will be appreciated that the annotations are 
useful in conveying information to the observer. FIG. 2 also exemplifies the advantageous use of 
groups and views in accordance with the present invention. 

35 FIGS. 3A and 3B respectively show an annotated image and the annotations without the image. 

The annotations shown in FIG. 3A show marked regions of interest with their respective pointers and 
labels."- As can be seen, the annotations are "overlaid" over the original image as shown in FIG. 
3A. FIG. 3B demonstrates that the annotations are not embedded in the original but are in fact 
stored in a separate file that is preferably linked to the image file. The annotations are stored 

40 in an image independent vector format for high-resolution display at all scales. Note that the 
original image remains unedited and more importantly, no pixels of the original raster image were 
changed or edited. 

In accordance with the illustrative embodiment of the present invention, the separate 
annotation file may contain a digital signature of the image file in case the two files are 

45 separated. As will be explained in greater detail below, reuse of the image is facilitated since 
the original image remains unchanged and the annotations remain linked to the image. 

It will be appreciated that because the annotations are not embedded into the image, they 
can be referenced, grouped (as shown in FIG. 2) and indexed for a variety of purposes. In 
addition, while multiple annotations can be added to an image, not all of the annotations need be 

50 displayed at the option of the presenter, to create a context appropriate annotated image. These 
multiple annotations can be interactive as will be explained below. 

FIG. 4 is an illustrative example of the methodology of how the present invention facilitates 
a plurality annotations and groupings. The first step is to select and open an image (128) that 
has been stored electronically. The author then is free to define a region of interest (130) and 

55 add the appropriate symbols, labels and pointers (132) as desired. The author is then free to 
chose to add additional annotations (136) . It should be noted that the author may be adding 
annotations to an image already annotated by another person (referred to herein as "multiuser 
authoring") . This is particularly true in a medical setting where several doctors may be adding 
annotations to the same image. 

60 Once the image has been annotated, the next step is to group or order the annotations 

hierarchically (136) . The order is a character sequence that allows the annotations of the image 
to be organized in an outline format, allows the annotations to be grouped (or nested) logically, 
and may impart priority (like the first annotation in the outline is the most important) . The 
order is treated as an annotation but is used to identify and set up the hierarchy that the visual 

65 annotations fall into. This piece of textual information is an invisible annotation that links the 
pieces of textual information consisting of the symbol, label or caption to the image. 

In accordance with the illustrative embodiments of the present invention, the textual 
information that is the order or grouping, is linked and stored with the image, much like the 
chunks of data that are embedded within Portable Networks Graphics (PNG) format. This feature is 

70 similar to the concept of a table of contents. The textual information that defines the order or 
grouping of the visual annotations is a constant, non-visual annotation always exists at the first 
position in the outline, and is a part of the information used to create the image's metadata. 

In accordance with another desirable feature of the illustrative embodiments of the present 
invention, the region of interests can optionally be organized into context-appropriate views 

75 (138). Context-appropriate viewing of an image and related annotations is a feature that allows 
the annotations on an image to be turned on or off for a particular audience or presentation. The 
annotation view attribute controls the visibility of an annotation because the annotations are 
separate from the image and are separate from each other. Thus, the view attribute can turn 
annotations on/off in a context-appropriate manner. Depending on the context, portions of 

80 annotations may be viewed in a presentation while other portions remain hidden. As represented at 
step 140, saving the file with annotations as vector information linked to the image is carried out 
in accordance with the illustrative embodiments of the present invention. 

FIGS. 5A and 5B are exemplary of context appropriate viewing in accordance with the 
illustrative embodiments of the present invention described herein. In FIG. 5A, as can be seen xn 

85 the box 142, all of the annotations for this image have been selected and are being displayed. As 
seen in FIG. SB, the box 14 4 shows that only the first two annotations have been selected and 
displayed. It is important to note that the underlying image is the same for both of the annotated 



f 



I 



WO 2004/057439 




PCT/US2003/017138 



* images. That is, both of the FIGS. 5A and 5B use the same file for the underlying image. Because 
the annotations are saved in a separately from the image (not embedded in the image) , the 
annotations can be selectively displayed on the image. 

Desirably/ in the illustrative embodiments of the present invention, an annotation and 
5 related textual information (i.e., label or caption) consist of discrete pieces of information 
that, when viewed, are interactive. Interactivity in this sense is defined as giving the viewer 
the ability to turn on/off annotated groups on the image. Annotations and associated textual 
information are viewed and controlled independently from the image. 

Likewise, reuse of the image is facilitated by providing an open "hook" to link the image 

10 and related annotations to larger cataloging systems. The ability to reuse underlying annotated 
images for different purposes (i-e»/ publication, web viewing or professional conferences) is an 
important improvement of the present invention over the previously available systems and methods. 
The present invention gives the author the ability to annotate an image once and reuse the 
annotations or the image with or without the previous annotations. Authors can store the archived 

15 image with the linked annotations. Importantly, the images remain unaltered because the 
annotations are not embedded into the image. Therefore, the image remains in an archival format and 
can be reused for other purposes or applications. 

As explained previously, in accordance with the present invention, by adopting open standards 
such as XML and SVG in the illustrative embodiments of the present invention, authors have the 

20 ability to save images with the annotations linked to the images, in a structured format of XML 
(SVG) . The open and extensible features of SVG promote indexing of the image with associated 
annotations and textual information, thus allowing images and annotations to be catalogued in a 
database or asset management system. 

In the previously available systems and methods, the complexity of most graphical programs 

25 and the problems caused by flattening image annotations, there is often no way to relate or group 
annotations as can be done with the present invention. Most of these previously available 
graphical programs will allow the user to create any visual appearance desired. However, these 
programs are only interested in the appearance of things and do not keep track of the inherent 
structure, relationships or intellectual groupings of the annotations as does the present 

30 invention. 

For example, in gross anatomy there are many anatomical groupings. These groupings represent 
an intellectual categorization that can be visually illustrated. Thus, there are two valuable 
aspects to such groupings: visual and inherent intellectual structure. An author may group 
annotations by using color to create the visual relationships. With the previously available 

35 pertinent software programs this is the end result. Other than the appearance of the image there 
is no way of knowing that (or working with) an annotation is part of one group or another. The 
structure of these groupings-which annotated feature belongs to which group— is lost when using the 
previously available systems and methods. In other words, it is not possible to interactively 
illustrate such relationships without retaining the intellectual structure of the annotations. 

40 Using the simple example provided above, using the previously available systems and methods it is 
not be possible to visually hide the gross anatomy so as to illustrate the relationship to 
neurology without retaining the information structure* Moreover, using the previously available 
systems and methods it is not be possible to dynamically integrate these relationships in a 
learning assessment tool by asking questions such as, "What group does the visible feature below 

45 to: gross anatomy or neurology?" 

In addition, in accordance with the illustrative embodiments of the present invention the 
retained structure of annotations could be used to automatically generate an image caption or a 
hierarchical legend of the annotated features. Without access to these relationships via a 
separation from the base image, as is done with the present invention, the dynamic and interactive 

50 features are not possible. 

FIG. 6 is a diagram showing the data flow carried out in accordance with an illustrative 
embodiment of the present invention. The first step is to extract the image data. The extractor 
(146) is an illustrative process that reads the digital information and assembles the auxiliary 
information for use by a human or computer (or any other data processing device) for annotation in 

55 accordance with the illustrative embodiments of the present invention. Digital information can 
also consist of color settings, grayscale levels, image pixel dimensions, or the type of image the 
user is requesting, i.e., TIF, JPEG, DICOM, etc. A human user or a wide variety of machine 
processes may initiate the process of extraction during the open image dialog. 

The next step is to organize the data. The organizer (148) acts upon the extracted 

60 information, and arranges the digital information to reflect the human user's conceptual 
organization in the illustrative embodiments of the present invention. The organization of the 
digital information reflects its origin or intended use by permitting the user to decide what the 
intended use will be. Organization includes, but is not limited to, a hierarchy, set, slices, 
channels, sequence and a single source of digital information (e.g., a single image) . For example, 

65 micro thin slices of tissue that contain the same cells, but are stained differently to identify 
different cell types in each slice. In this example, the organization is a single cross section 
of cells with each slice showing unique cell types. 

The next step is to construct the annotations. The constructor (150) is a machine aided 
human user process that allows visual annotation elements to be created manually by the user in the 

70 illustrative embodiments of the present invention. The constructor (150) represents a class of 
visual elements that includes, but is not limited to, a point, a line, a polygon, a plane and a 
cube. The constructor (150) annotation elements available to the human user are selected by a 
computer process based on applicability to the dimensions of the original digital information. 

The next step is to segment the data. In the illustrative embodiment, the segmentor (152) 

75 is a computer process that automatically (with no human intervention) identifies and detects visual 
features (i.e. edges, areas, planes, cubes, etc.) within the digital information, and automatically 
creates visual and non-visual annotations for those features. The segmentor (152) falls within the 
common definition of segmentation within the computer graphics industry. 

The indicator (154) is a machine aided human user process that allows visual indication 

80 elements to be created manually by the user in the illustrative embodiments of the present 
invention. The indicator (154) represents a class of visual elements that includes, but is not 
limited to, a spot, a string, an arrowhead, an arrow and a pin. Each indicator (154) has a core 
set of properties that include the anchor point (e.g., the tip of an arrow) and the properties that 
govern its shape for visual presentation. The indicator (154) allows the author in the process of 

85 annotation to focus the attention of a human user (viewer), and visually ties feature relevant 
information to the annotation when it is not appropriate to display the information directly on the 
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annotation itself. The indicator (154) maintains the relationships between visual and non-visual 
annotation elements and image data (including image data which is ID, 2D, 3D, or 4D) . 

The connector (156) is a visual or non-visual machine aided human user process that allows 
connection elements to be created manually by the user in the illustrative embodiments of the 
5 present invention. A connection element enables the human user to define the relationship of two 
or more annotations. The definition of the connector (156) relationship determines how machine, 
such as a computer, presents the connection, and how the human user may interact with the 
connection and connected annotation elements. Connectors (156) include, but are not exclusive to, 
groups, views, rules and structural hierarchy of annotated features. For example in the case of 

10 a medical image, the carotid sheath contains the carotid artery, internal jugular vein and the 
vagus nerve. The connector (156) defines the structural relationship between the carotid sheath 
and the elements contained in the carotid sheath. The connector (156) provides the ability to 
define or select a context-appropriate view based on the groups of annotation. 

The descriptor (158) is a machine aided human user process that allows description elements 

15 to be created manually by the user in the illustrative embodiments of the present invention. A 
description element may be attached to any other annotation element, and appear visually with the 
annotation or as a dynamic visual element like an Interactive Visual Note. A description element 
may be free-form text, or may follow a coding convention or lexicon to constrain the description 
entry of the human user. For example, in the case of a medical image the descriptor (158) may 

20 contain a clinical note entered by an attending physician, a pathology report entered by a 
pathologist, or a caption that defines an aspect of the annotated region of interest. 

The illustrative embodiments of the present invention provide particular advantages in view 
of the provision of features related to Interactive Visual Notes. Some uses will find that IVN is 
the most desirable feature of the present invention. IVN is supported by many illustrative 

25 embodiments of the .present invention and provides, inter alia, interactive on/off functions. In 
addition to using the symbol for on/off presentation and the combination of symbol-label-caption 
for generation of legends, in accordance with some illustrative embodiments of the present 
invention the symbol- label- caption may also be used for extensive note taking on an anno tat ion-by- 
anno.tation basis. - without obscuring the visual presentation or requiring a separate "reporting" 

30 interface. The embodiments of the present invention providing such advantageous features provide 
that reports or extensive notes may be contextually presented on demand by the user while viewing 
the image and associated annotations. This feature provides the advantage that the user does not 
have to interrupt his "visual" workflow to obtain text -based information. Particular illustrative 
embodiments of the present invention provided a handle or "hot-spot" at the end of the pointer or 

35 arrow (which could be located anywhere) which triggers the dynamic display of a reporting window 
that may have text, tables, charts and possibly other secondary information or even contain an 
image that is used as a reference. This feature advantageously makes the given visual presentation 
much more rich while improving the user's efficiency and workflow. 

The deductor (160) is machine process that may or may not be aided by human user input to 

40 analyze and deduce new visual and non-visual information from the pre-existing annotated 
information using a set of defined rules in the illustrative embodiments of the present invention. 
The deductor (160) is a mechanism for automating information manipulation within the annotation 
process that may require a mix of human input and computer algorithms. For example, in a medical 
image a deductor (160) may count the number of each type of cell and the mean distance between the 

45 cells in a slice of stained tissue. In the case of a medical image, the deductor (160) may create 
output that could be read and be integrated into an existing system for cell analysis. The 
deductor (160) could also create output that is read and applied to a te m plate in a publishing 
process . 

The presenter (162) is the machine process that creates the interactive visual interface 
50 based on the visual and non-visual annotated information for consumption and manipulation by a 

human user in the illustrative embodiments of the present invention. The manner in which the 

presenter (162) creates the visual interface may be determined by viewing goals , role or privilege 

level of the human user. Also, the presenter (162) may be constrained by technical limitation of 

a computer system upon which it resides, which requires the presenter (162) to generate a visual 
55 interface appropriate computer system. For example, a user might be a student who receives, a 

simplified presentation for study purposes, which may be different than the same information 

presented for reference purposes to an expert user. 

FIG. 7 illustrates an example of one application of the present invention utilizing 

multispecialty authoring. It is to be understood that the example illustrated in FIG. 7 is merely 
60 illustrative of the many different beneficial applications of the present invention. The example 

of FIG. 7 shows how multiple authors may contribute annotations incrementally to the same image 

without variation to the original image, i.e., embedding the annotations in the original image. 

The primary care physician 164 is presented with a patient with a headache. The primary care 

physician 164 orders that an image 166 be taken of the affected area. A pediatrician 168 receives 
65 the image 166 along with the initial clinical assessment made by the primary care physician 164. 

After reviewing the image 166, the pediatrician 168 annotates the pathology and adds clinical notes 

thereby creating an annotated image 166A. 

Still referring to FIG. 7, a pediatric neurologist 170 then receives the annotated image 166A 

and adds additional annotations thereby creating annotated image 166B. Annotated image 166B is 
70 then sent back to the primary care physician 164 with the annotations of both the pediatrician 168 

and the pediatric neurologist 170. The primary care physician can then view the annotations 

interactively, that is, either separately or jointly. 

An example of the structured output of vector information in the XML format is shown in 

Appendix 1. It should be understood that the structured output contained in Appendix 1 is provided 
75 for exemplary purposes only and should not be construed as limiting the present invention in 

anyway. 

The following examples illustrate the various applications of the present invention. The 
examples are for illustrative purposes only and should not be construed as li m iting in anyway but 
instead should be taken as representative of the wide applicability of the present invention to 
80 many different fields and professions. 

Example 1 

A neurosurgeon reviews a volume rendered set of MRI data that indicates the patient has an 
aneurysm. The neurosurgeon visually annotates a region of interest and adds a clinical note that 
is linked to the region of interest. The neurosurgeon identifies a previously undetected aneurysm 
85 and marks that region for consult with the neuroradiologist. The annotated image set may be sent 
to, or checked back into radiology imaging system with the annotations and added expert content 
linked to the three-dimensional model. The surgeon calls the radiologist for a consult on the 
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second aneurysm prior to sending , the . patient to ^urgery Jhe ^£g*£f*^$£ 
confirms additional diseased re gl o^ ^ ^.nt, utlining the second 

that was added by the su ^eon. ine * ns and radiologists, with the appropriate 

5 SSsTon P s?my\heck%ut U Ine^suaS annotated image data set for review as reference or further 
multi-user annotation 

P^^^LL^-t-or nroceeds with an experiment which involves staining serial sections of a 

visual note is comprised o£ J- ines / 1^X9°"* The visually annotated image set is maintained 

descriptions that outline an area on the > image set J«W^ of the interactions between 
20 ^tS^ ^^t^ X &^^^«^«^tio«- and expert visual notes are 
stored with the originating scientist's notes. 

sample from • ui.uas.d ulunt. J^P 1 "* a.V^irtlcS ™ ith the »SiaV cmnotMlon t.chuology to 

permissions, may check out the image and visual armotati<»»« r rev iew as publication or 

30 Snlti-user annotation. The annotated W»mav also be used for ^^^P 1 "^^! assets may 
fare/le^^^^ - - supporting material in a legal 

proceeding . 

35 d.«r»i»es th. chemical structure , ot . '^^.^JfSS^J^SrTal 

cKeSca^trui^^^^^ 

40 an additional expert opinion of the structure. ™e receiving <- visual note is comprised of 
image (without destroying ox -.altering t ^^l,^ 11 !^^ ^ SeSorTptforis thtt outxl^e an. area 
lines, polygons and points with associated text basea spoors a a chemis £, s note s and are reviewed 

45 :ffl2S. t «a?rr^Ca^ ! « .«, ,*».«.«<. ». 

of the investigation. 

fgfigl t receives digital aerial Sf ^log/st^wT shapes 

50 geologist may check-in the image s ) into a cata ^^LJ^ST^^ and descriptions with a 
(polygons, lines or edges, and points), pointers *™» «* r "| th Taerial images. This annotated 
digital annotation tool to communicate expert understanding <?* the oloaistsWith the appropriate 
imlge may be checked back into the ^^.ffi,,. ^fof?lvi« L reference or further 
permissions may check-out the image and visual armotation set ror revie publication or 

55 multi-user annotation. The annotated uw-y also be u|ed for £™^^uch assets may 

?a?er e bru?ed?or\i^ or as supporting material in a legal 

proceeding . 

retract ing electrician receives a digital ^SSSa£SSf^& 
While reviewing the digital ™^*^^^*&^J±^^ t ^&J£^ is comprised of lines, 
(without destroying or altering the underlying J= lu ^5™ l nd descriptions. These notes are then 
polygons and points with associated text-based symbols and tew^^- st ions. Likewise the 
stored with the general contractor and are r ^Z^tL^^o^Bs Xo^cth^te on-site work. While 
65 on-site electrician doing the wiring may ^^^^^i^^tJ^i^Sal notes about the work 
S£S2?o?\2£32. *« review by the general 

contractor and contracting electrician. 

fSefwn-er receives a digital q blueprint ^rom ^^J^T^^t^^S^ 
the homeowner applies visual notes to hlue P^ n ^ 0 ^^F e ^ 0 ^^l^%o f the blueprints to convey 
contractor. The general contractor can ^ * e re ^Sew e dTy architect, general contractor 
information to subcontractors. The notes are ^ored and ^SSStrecSc in turn, make additional 

75 a^offiofa^^ blU ^ rint ^ 10g96d f ° r reVi6W 

by all parties 



Heifer of a road construction P^S-^^^dSJLS^SSSiSS-'S ^SSS^lSS'-SX 
the areas tr be excavated and the areas of concern like ^ 1 \ e h le ^^ 1 ^ xo exper t knowledge of the 
80 should be avoided. This underlying map .off ^^^^"JtoSon where to and where not to 
project manager is given to the excavation crew r for [ spatiaJ i^^ied to lavers in a system where one 
excavate. Annotations and visual notes can be created and 'applied ^ L^Yinls or electrical power 
layer is telecommunications, another layer outlines water and I sewe ^ x » e f s images but remain in 
lines. The annotations and visual notes are not embedded in the layers or image 
85 their original positions as the underlying images are changing. 
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Example 9 

A mineralogist opens a digital microscopic image of a mineral sample as M rt- nf = „ { „ 
(oil, mining) exploration project. The expert mineralogist vilulllv^nnotttes th e -i™^ 
shapes (polygons, lines, points) and associated text-based symbols and ^dejc^iotions Ih^f™^ 1 ^ 
5 associated visual annotations are logged and stored in the enterrTr-fff SESt™ al ? d 
resides as reference material for later investigation and 1 XS 36 system. This analysis 
senior investigators for directing the s exnloration investiLt?™ q ? fc 27??" an Jl notation by 
be archived and retrieved at a latlr timl for exvlSraZi™ addl ^on, the analysis may 

are designed to be linked to the image^ta set and can be finktd Th ? Y lsual annotations 
10 generated as part of the investigation linked to additional images as they are 

Example 10 

An individual author can open an image in the visual annotation software Th« *„i-h n -r 
then identify a region of interest and outline the rf»ni<->r. irl+ZrZZi: sortware. Tfte author can 
indicating some feature in or on the region of iritereft 9 and assian t^™' P ^ a ?>, an arrow . and la »>el 

groups of regions of interest and associated captions for output to a d±ai£l^J^^^*2 r 
publication media (e.g., WWW or CD-ROM). p ° output to a dxgital press or other 

Example 11 

invention incorporating IVN, the physician can select a single region^? SterLt that contfiSs 
additional information regarding the region of interest. For example, of immediate interest ™Z 
30 mar^SrinH?^^ 1011 tW £ annotati ° n ? selectively displayed." Each armoLtion outlines the c^st 

30 margins indicating _ a change over time (one outline at an early date shows a smaller cyst than thft 
at a later date) . At the end of each pointer for each annotation is a "hotsnot « r« JvfL 

=5=i b f Call ^ d up °? demand whil e viewing the image, which is the main (in the case of thif userf 
analytic medium. In contrast, previously available systems typically show the uler the imLe anrt 
Svention"^^^ 1 "^ 11 -*^ in ter P retation (in some of the ill^trltlve e^oalmenll ol the^flslnt 
invention replaced by interactive visual annotations and brief notes, such as s^oll-lfbels- 
4 0 ^hoH?™fL an ?^ leW re P°5 t ? at separate locations. In accordance T with selectldillustrarive 
b^^L^ thS PXB - S ^ i™! ntion ' the reporting or display of any related I infection can now 
user P 7 P^vxded at the same location as the image/ which improves the workflow of 2he 

Example 12 

« A n ^^^ int ®^ acti Y, e visual note (IVN) feature of selected embodiments of the present 

S«^^if r ° VldeS ph r iC:Lan ! and healthcare support personnel with solutions to effectively and 
efficiently access and use the medical knowledge base across practice environments- facilities 
fdSni^^ PP ° rt medical . raining. For example, healthcare specialist ™ til 'ffeS 

administering small pox vaccines require the ability to collect visual image data of vaccinated 

, n ^ d ^ id ? a u S and add . clini ^al findings that allow them to track the efficac? of the vaccination 

s^rusSrrpointer^lah^ **" *** the a «-ted region of interest TESKffin 

site) using a pointer, label or caption on the image and add a note to the annotations that 
supports the clinical . findings. Additional annotations can be placed at the^argins on the 
inoculation site indicating a change in scar formation over time (an outline at a latlr date 

55 InTL^osp?^!^ f?? t6d regi ° n ° f i ntereSt than that at a later date > • The meSicai specSKst 
55 in the hospital setting receives the annotated images as a visual reference to develop a medical 

and \Zt frir S ^ e ? iald s ? ec i alis ts: f^ngs to determine if the inoculation was successful 
exl^f opinion of the findings to the annotated image data. Expanding on the above 

example, the field specialist reviews the medical specialist's expert findings and adds 
60 oh^^rt L ih f?f,^° the annotated region of interest such as adverse drug interactions 
llntlZ ta Zit^ ° r Chan ?^ obs ? rved in the inoculation site. The information remains 
i 1 L ™ Z X annotated regions of interest and can be dynamically presented to the 
~!?h?»„ a " IVN whe ? the mouse cursor is in the «hot-spot". This collection of information, 
residing in a consistent user interface, can be reviewed by the appropriate governing body (for 
65 a^ak' ^ °i- ea ? e C ° n ^?^ f ° r addi ti°nal indications or used to identif? 9 poSLtfons 

™V ? and medical specialists and officials who track small pox inoculation! review 

medically relevant information in a consistent interface. review 
Example 13 



^ XS ^ a ^- y ann °tating a region of interest and adding a clinical note to indicate a 
70 included StJSLEI! l^*? 9 ^ i"*?™*^™ fc o the patient record is also advantageously 

deciston ^nnoir^ < -K mb0dlment o ° f P resent invention, which can also function as a tool for 
treats a na??^ SL^ - ^l* ' F ° r ^ mplB '. * P rimar y care Physician located in a rural clinic 
11™ ^ZJ^ZTt t neck ™* s - T he patient does not respond to antibiotics so the primary 
r^?o? Y? ? ? requests a clinical and radiology consult and at a tertiary care facility. The 
75 «h d ™? S V ^ U ^^ annota tes a region of interest (neck mass) and also visually annotates the 
effected anatomy surrounding the neck mass. The radiologist calls for Tsurgical 
UTa ^ ^ he 1 ? u 55 eon identifies and visually annotates an additional region of interest nut 
prior f s ™Z f r U Hv la f^ e findings. The surgeon consultswith the radiologist 
The radLfo^^ «~h- addltlonal findings that grouped according to the surgical grouping. 
80 surahs f!nrf?L^ fl " di "? S f re ?5? uped a< =«=ording the radiology group and do not collide with the 
S?l or ?? ;' Continuing this example, the surgeon removes the neck mass and sends it to 
reaion° of ?n«-™£ ?; ^ Pathologist visually annotates the histopathology and indicates the 
regions of interest that correspond to the CT regions of interest verifying the findings of the 
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* radiologist and the surgeon. The pathologist's findings can also be contained in the 
interactive visual note along with the clinical findings of the radiologist and surgeon. The 
visual annotations, clinical notes and pathology report is contained in one record that can be 
viewed by the primary care physician in the rural clinic. The clinical case becomes a clinical 
5 reference for future congenital neck mass diagnosis. 
Example 14 

The visual annotation and knowledge representation features of the illustrative 
embodiments of the present invention can improve the delivery and quality of healthcare in the 
field environment. By leveraging the capability to transmit data using low bandwidths, vital 

10 medical information and essential medical expertise can be shared regardless of location and 
made available as far forward in a military theater of operations as necessary, without 
increasing the logistical footprint. This feature is particularly advantageous for deployed 
forces operating in an austere environment and a geographically distant theater supporting 
combat or humanitarian assistance operations where certain medical specialties may not be 

15 available. For example, a medic can capture visual information and annotate affected regions of 
interest in the field and send it to a central surgical hospital for immediate consult and 
triage. The medical specialist in a surgical facility can make a decision to transport the 
patient and at the same time, add a clinical note indicating initial findings for the patient 
that can be reviewed by the intake physicians. The ability to collect clinical notes among 

20 healthcare providers at all levels, ensures consistency in presentation of complex medical 

information. Providing an interface that medical professionals can use across skill levels and 
practice environments simplifies the medical decision making process between hospital and 
clinics to deployed forces and improve diagnosis, treatment, and evacuation decisions. Improved 
medical decision support can be critical on-board deployed ships, for example. By offering 

25 improved diagnosis, the illustrative embodiments of the present invention can prevent the 

unnecessary evacuation of personnel to medical facilities when they otherwise could be treated 
on-board ship. 

From an understanding of the foregoing, it will be appreciated that the present invention 
advantageously allows: (1) A region of interest to be specified within an image using a raster 

30 independent notation, and promote the capture of associated textual information; (2) For each 
annotation to be easily manipulated (moved, sized, deleted) independently from other annotations 
(non-embedded annotations); (3) Annotations to be grouped using user defined group names 
(hierarchical groupings); (4) Annotations to be presented using user defined preferences 
(context appropriate viewing); (5) Multiple images to be viewed and annotated concurrently 

35 (multispecialty authoring) ; (6) Annotations to be saved in a simple format, for example XML, 

that may be permanently associated with the image; and (7) Image and annotations can be exported 
as a "flat" rasterized image for use in HTML pages, digital slide presentations and publications 
(providing cross -media capability) . 

Appendix 2, set forth below, contains an illustrative example of one embodiment of 

40 programming code that can be executed on a computer in accordance with the features of the 

present invention. It should be understood that the code in Table 2 should not be construed as 
limiting of the present invention in anyway. 

It is to be understood that the above- described arrangements are only illustrative of the 
application of the principles of the present invention. Numerous modifications and alternative 

45 arrangements may be devised by those skilled in the art without departing from the spirit and 
scope of the present invention and the appended claims are intended to cover such modifications 
and arrangements. Thus, while the present invention has been shown in the drawings and 
described above with particularity and detail, it will be apparent to those of ordinary skill in 
the art that numerous modifications, including, but not limited to, variations in size, 

50 materials, shape, form, function and manner of operation, assembly and use may be made without 
departing from the principles and concepts set forth herein. 
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<IAT> 
<canvas> 

<border color=- black" > 0.02 0.02 0.02 0.02 </border> 
</canvas> 
5 <annotations> 

<roi type="area" order="2" > 
<views> NEW < /views > 

<authors last= n John Doe" revision="0"> </ authors > 
<code> < /code> 
10 <symbol> MCF </symbol> 

< label > Middle Cranial Fossae </ label > 
<caption> </caption> 
<cs_class> </cs_class> 
<cs_ tumor > </cs__tumor> 
15 <cs_jiode> </csjiode> 

<cs - metastasis> </cs_metastasis> 
<cs_note> </cs_note> 

<vertexs> 0.08056,0.66667 0.05833,0.58125 0.06944,0.50208 0.14444,0.38333 0.20278 0 36875 
0.26389,0.36458 0.32222,0.37500 0.38056,0.40000 0.43333,0.43958 0.43889,0.42500 0.45833 0 41458 
20 0.. 48889, 0.40417 0.51667,0.40833 0.54167,0.40625 0.56944,0.42292 0.59444,0.44375 0 . 61944 ,'o*43542 
0.65556,0.40208 0.69722,0.37917 0.75278,0.36875 0.81389,0.37500 0.89167,0.39792 0.91944,0 43750 
0.95278,0.53958 0.95278,0.59792 0.93889,0.65417 0.92222,0.68750 0.89722,0.72083 0.86944,0 71250 
0.83056,0.68542 0.73333,0.62292 0.64444,0.56458 0.56389,0.54583 0.49444,0.53958 0.41944,0 54583 
0.34722,0.56875 0.29722,0.59792 0.17778,0.67292 0.14444,0.71250 0.11667,0.71458 </vertexs> 
25 <pointer head="l- point=-l- tail="0. 08611, 0. 61042- shapes" none" text= ■ symbol ■ > </pointer> 

<color> black </color> 

</roi> ' - - - - - - - — 

<roi types "area" order="2.5- > 

<views> NEW </views> 
30 <authors las t= "John Doe" revision=*0"> </authors> 

<code> </code> 

<symbol> SOF </symbol> 

<label> Superior Oribal Fissure </label> 
<caption> </caption> 
35 <cs_ class> </cs_class> 
<cs_tumor> </cs_tumor> 
<cs_node> < / cs_node> 
<cs_jnetastasis> </cs_metastasis> 
<cs_note> </cs_note> 

40 <vertexs> 0.43333,0.43958 0.44444,0.42708 0.45556,0.42292 0.46389,0.43125 0.45833,0.44583 

0.45556,0.45625 0.44444,0.46667 0.43611,0.46667 0.43056,0.45000 </vertexs> 

<pointer head="5" point=-5- tail="0 .49722, 0.46667- shape= " line ■ text=« symbol- > </pointer> 
<color> black </color> 
</roi> 

45 <roi type="area" order="2.4» > 

<views> NEW </views> 
<authors last=" Jane Doe- revision="0"> </authors> 

<code> </code> 

<symbol> FS </symbol> 
50 <label> Foramen Spinosum </label> 

<caption> </caption> 

<cs_class> </cs__class> 

<cs_tumor> </cs_tumor> 

<cs_node> </cs_node> 
55 <cs_metastasis> </cs_metastasis> 

<cs_note> </cs_note> 

<vertexs> 0.31389,0.52708 0.32222,0.51667 0.33611,0.51667 0.33889,0.52708 0.33056,0.53542 
0.31667,0.53542 </vertexs> 

<pointer head=-auto" point=-0- tail="0. 26944, 0.52500- shape= n line" text= ■ symbol - > </pointer> 
60 <color> black </color> 

</roi> 

<roi type= B area- order^.!* > 
<views> NEW < /views > 

<authors last="John Doe* revision=-0-> </authors> 
6 5 <code> < / code> 

<symbol> FL </symbol> 

<label> Foramen Lacerum </ label > 

<caption> The foramen lacerum is an artifact of a dried skull. In life, nothing is transmitted 
through it vertically and it is closed by a plate of cartilage. </caption> 
70 <cs_class> </cs_class> 

<cs_tumor> < / cs_tumor > 
<cs_node> </cs_node> 
<cs_metastasis> </cs_metastasis> 
<cs_note> </cs_jnote> 

75 <vertexs> 0.40278,0.52917 0.41111,0.51875 0.42500,0.50833 0.44444,0.50417 0.46111,0.50625 

0.46111,0.51875 0.45000,0.52708 0.42778,0.53333 0.40833,0.53542 </vertexs> 

<pointer head=-auto" point=-5- tail=-0 .49444, 0 .51667- shape ~ — line " text=" symbol" > </pointer> 
<color> black </color> 
</roi> 

80 <roi type="area- orders "3.1- > 

<views> NEW </views> 
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^authors last="Jane Doe" revision=*3"> 

<author name="Jack Doe" revision="l"> 

<label> Cribriform Plate </label> 
<color> red </color> 
5 </author> 

<author name=" John Doe* revision="0*> 
<label> Cranial Plate </label> 
<color> white </color> 
< /author > 
10 </authors> 

<code> </code> 
<symbol> CP </symbol> 
<label> Cribriform Plate </label> 
<caption> </caption> 
15 <cs_class> </cs_class> 

<cs_tumor> </cs_tumor> 
<cs_node> < / cs_node> 
<cs_metastasis> </cs_metastasis> 
<cs__note> </cs_note> 

20 <vertexs> 0.47778,0.27083 0.49444,0.23542 0.51111,0.24792 0.51667,0.26667 0.52778,0.24583 

0.54167,0.23958 0.56111,0.27708 0.55556,0.30417 0.54722,0.32708 0.53333,0.34583 0.50278,0.34167 
0.48889,0.32083 0.48611,0.29583 </vertexs> 

<pointer head="auto* point= ■ 6 " tail=*0. 59167, 0 .27500* shape=" line" text =* symbol ■ > </pointer> 
<color> black </color> 
25 </roi> 

<roi type=*area* order=*2.2* > 
<views> NEW </views> 

<authors last="Jane Doe* revision="0*> </authors> 
<code> </code> 
30 <symbol> FO </symbol> 

<label> Foramen Ovale </label> 
<caption> </caption> 
<cs_class> </cs_class> 
<cs_tumor> </cs_tumor> 
35 <cs_node> </cs_node> 

<cs_metastasis> </cs_metastasis> 
<cs__note> </cs_ note> 

<vertexs> 0.34444,0.50417 0.36389,0.49375 0.37500,0.48958 0.38889,0.48750 0.39444,0.49167 
0.39444,0.49583 0.39444,0.50417 0.39167,0.51250 0.38056,0.52083 0.36944,0.52500 0.35556,0.52500 
40 0.34444,0.52083 0.33889,0.51250 </vertexs> 

<pointer head=*auto" point=*0* tail=" 0.30278, 0 .47083" shape="line* text =■ symbol " > </pointer> 
<color> black </color> 
</roi> 

<roi type=*area* order ="2. 3* > 
45 <views> NEW </views> 

<authors last=" Jane Doe" revisions* 0*> </authors> 

<code> </code> 

<symbol> FR </symbol> 

<label> Foramen Rotundum </label> 
50 <caption> </caption> 

<cs_class> </cs_class> 

< cs_tumor > < / cs_tumor > 

<cs_node> </cs_node> 

<cs_metastasis> </cs_metastasis> 
55 <cs_note> </cs_note> 

<vertexs> 0.39444,0.43958 0.40556,0.43958 0.41389,0.44167 0.42778,0.44792 0.43056,0.46042 
0.41667,0.45833 0.40278,0.45417 0.39444,0.44792 </vertexs> 

<pointer head="0* point="0* tail- "0.3 4722, 0,42292* shape="line* text=* symbol* > </pointer> 

<color> black < /color > 
60 </roi> 

<roi type=*area" order="l* > 

<views> NEW </views> 
<authors last- 'John Doe" revision="0"> </authors> 

<code> </code> 
65 <symbol> PCF </symbol> 

<label> Posterior Cranial Fossae </label> 

<caption> </caption> 

<cs_class> </cs_class> 

<cs_tumor> </cs_tumor> 
70 <cs_node> </cs_node> 

<cs_metastasis> </cs_metastasis> 

<cs_note> </cs_jnote> 

<vertexs> 0.50000,0.88125 0.65833,0.87292 0.75278,0.83125 0.85000,0.76875 0.88333,0.74167 
0.76944,0.65417 0.72222,0.63333 0.69167,0.60208 0.60556,0.55208 0.51111,0.54792 0.41389,0.54792 
75 0.34722,0.57708 0.26944,0.62708 0.18056,0.68542 0.14722,0.74167 0.18889,0.78542 0.23611,0.82083 
0.34444,0.86042 </vertexs> 

<pointer head=*14* points* 14" tail=*0 .17500, 0 .73542* shape="none* text =• symbol * > </pointer> 
<color> black </color> 
</roi> 

80 <roi type="area" order ="1.1* > 

<views> NEW </views> 



J 
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<authors last— John Doe" revision— 0 H > </authors> 
<code> </code> 
<symbol> FM </ symbol > 
<label> Foramen Magnum </label> 
5 <caption> </caption> 

<cs_class> </cs_class> 
<cs_tumor> </cs__tumor> 
<cs_node> </cs_node> 
<cs_metastasis> </cs_metastasis> 
10 <cs_note> </cs_note> 

<vertexs> 0.50556,0.61667 0.52500,0.62083 0.54444,0.63333 0.56944,0.65208 0.58333 0 65833 
0.58889,0.67917 0.60556,0.68958 0.60278,0.72917 0.58611,0.74792 0.55556,0.76667 0 53056 0 77708 
0.50000,0.78542 0.47222,0.78125 0.44722,0.76458 0.42222,0.75208 0.41389,0.73750 0 41111 Y 71875 
0.41111,0.69583 0.41389,0.68333 0.42222,0.67083 0.45278,0.64167 0.47778,0.62500 </vertexs> 
15 <pointer head-17« point-17" tail-0. 43056, 0.71458- shape—none- text- ■ symbol - > </pointer> 

<color> #ffffff </color> ^ 
</roi> 

<roi type— area" order— 3" > 
<views> NEW </views> 
20 <authors last— John Doe" revision— 0"> </authors> 

<code> </code> 
<symbol> ACF </syrobol> 

<label> Anterior Cranial Fossae </ label > 
<caption> </caption> 
25 <cs_ class > </cs_class> 

<cs__tumor> </cs__tumor> 

<cs__node> </cs__node> — — • 

<cs_metastasis> </cs_metastasis> 
<cs_note> </cs_note> 

30 <vertexs> 0.35278,0.12917 0.46111,0.11042 0.50278,0.12083 0.53889,0.11458 0.63056,0.12083 

0.70000,0.13958 0.82222,0.25417 0.85556,0.31667 0.87778,0.35833 0.87222,0.37708 0 75833 0 35625 
0.68333,0.37083 0.63889,0.39583 0.62222,0.41458 0.60000,0.42083 0.56944,0.40208 0 51389*0 39375 
0.45278,0.40208 0.43333,0.41042 0.41944,0.41458 0.36944,0.38125 0.31111,0.35833 0.23611,0 34792 
0.18611,0.36042 0.15556,0.35417 0.20278,0.25000 0.26667,0.17917 </vertexs> 
35 <pointer head— 25" point— 25* tail— 0 .20556, 0 .28333 » shape— none- text— symbol" > </pointer> 

<color> black </color> 
</roi> 
</annotations> 
</IAT> 



WO 2004/057439^^ - 14 - PCT/US2003/0 17138 

Appendix 2 

iat . ant . txt 

# Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

5 # iat.ant.tcl 



source iat . antptr . tcl 
source iat.antio.tcl 
source iat .antsvg. tcl 

10 

namespace eval iat : : ant { 



variable TRACE 0 

variable next__nsid 1 
15 variable rawkey 1 

variable rawsave 0 

# this assumes roi pts < 1000 

# see ant_create_pointer. . . 
variable autoptr 1000 

20 variable thisptr 1000 



variable precmd " ■ 
variable ord2key 
variable leaf_id 0 

25 

# all annotations 
variable view "ALL* 



# active annotation 
30 variable antkey 
variable order 

variable point 

variable points [list] 

variable head 
35 variable heads 

variable verts 
variable tails 
variable dSYMs 
variable dPTRs 
40 variable kind "none" 

variable color "default" 
variable code " ■ 

variable symbol * ■ 
variable label ■ ■ 
45 variable caption 
variable cs_class 
variable cs_tumor 8 * 
variable cs__node * ■ 
variable csjnetastasis •" 

50 



55 



array set heads [list] 
array set verts [list] 
array set tails (list] 
array set dSYMs [list] 

variable fillcolor 
variable linecolor 

variable styleColorLight #FPP 
60 variable styleColorDef ault yellow 

variable styleColorDark #000 



variable styleFontName helvetica 

variable styleFontSmall 28 

65 variable styleFontDefault 38 

variable styleFontLarge 48 



70 namespace eval iat::antOLD { 



# flags 

variable channels ■■ 

# annotations 

75 variable polygons 
variable canvas 
variable of fsetx 0 
variable offsetY 0 
variable imageX 0 

80 variable image Y 0 
variable roiKey 
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variable pointsDirty 0 
variable symbolDirty 0 
variable points 
variable sectors 
5 variable point 
variable rawID 
variable select 

variable orders 
10 variable kinds 

variable symbols 

variable labels 

variable captions 

variable centers 
15 variable pointers 

variable sizes 

variable colors 

# not part of methodology - only presentation ??? 
variable views 

20 variable sorls 

variable pointerPoints 
variable symbolPoints 

variable order 
25 variable kind 

variable symbol 

variable label . 

variable caption 

variable center 
30 variable pointer 

variable size 

variable color 

variable symbolPoint 

variable view 
35 variable sorl 

# calculated. • . 
variable fillcolor 
variable linecolor 

4 0 variable pointerPoint 
variable angle 

variable orderToKey 

45 variable callbackSelect 

set callbackSelect •noop" 

variable callbackDes elect 
set callbackDeselect "noop" 

50 

set roiKey 
set rawID 1000 
set points [list] 
set select "NONE* 
55 set imageX 100 
set imageY 100 

variable styleColor Light #FFP 
variable styleColorDefault yellow 
60 variable styleColorDark #000 

variable styleFontName helvetica 

variable styleFont Small 28 

variable styleFontDe fault 38 

65 variable styleFontLarge 48 

#font create LABEL -family arial -size 32 

} 

70 #package require iat.roi.svg 

proc iat: :ant: :next__nsid {> { 
variable next_jnsid 
return [incr next_nsid] 

75 ) 

proc iat: rant: : proc { ns cmd args } { 
variable TRACE 

if {$ TRACE) { puts "iat: : ant: : proc: $ns $cmd $args" } 

80 

variable antkey 
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variable color 
variable inview 
variable code 

variable symbol 
variable label 
variable caption 
variable cs^class 
variable cs_tumor 
variable cs_node 
variable cs_metastasis 
variable cs_note 



switch $cmd { 

■ configure " { 

#puts " cmd = configure: $args" 
foreach {key value} $args { 

#puts " key = $key & value = $value" 
switch — $key { 
"-canvas" { set_eanvas $ns $value } 
" -cmdcanvas " { se t_cmdcanva s $ns $ value } 

"-size* { set_image_size $ns $value } 
"-offset" { set_image_pf f set $ns $value } 
"-select" { set_select_mode $ns $value > 

} 

} 

) 

"cget" { 

#puts " cmd = cget: $args" 
switch — [1 index $args 0) { 

•-offset" { return [get__image__of f set $ns] ) 

■-size" { return [get_image_size $ns] } 

} 

) 

"begin" { 

switch — Clindex $args 0] { 

"canvas" { precmd $ns canvas } 
"annotations" { precmd $ns annotations > 

> 

} 

"end" { 
> 

•close" { 

return [ant_close $ns] 

} 

"create" { 

#puts ■ cmd = create: $args" 
#ant_create (1 index $args 0] 
switch — [1 index $args 0] { 

•roi" { return [ant_create $ns [1 index $args 1]] } 
•vertex" { return 1 an t_vertex_add $ns II index $args 1]) } 
"vertexs" { return [ant_vertexs_add $ns [1 index $args 1]] > 
"pointer" { return [ant_create_pointer $ns [1 index $args 1] [1 index $args 2J [1 index $args 

) } 

) 

) 

•delete- { 

#puts " cmd = delete: $args" 
switch — [1 index $args 0] { 
•ptrvert" { return [ant_delete_ptrvert $ns [1 index $args 1) [1 index $args 2]] } 
■pointer" { return" [ant__delete_pointer $ns [lindex $args 1]] } 
■vertex" { return [ant_delete_vertex $ns [lindex $args 1J] ) 
■active" { return [ant_delete $ns active) } 
•annotation" { return [ant_delete $ns [lindex $args 1)) } 
default { return [ant_delete $ns [lindex $args 113 ) 
} 

#ant_delete $ns [lindex $args 0] 

) 

■deselect" { 

ant_deselect $ns 



•draw* ( 



#puts ■ and = draw: $args* 

switch — [lindex $args 0] { 

■segments* { return [ant_draw_segments $ns) ) 
■vertexs" { return [ an t_dr aw_ver t exs $ns) > 
■active" { return [ant_draw $ns active] } 
•all* { return [ant_draw_all $ns) } 
default { return [ant_draw $ns [lindex $args 0]] 



} 

■dump" 



) 
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} 



ant___dump $ns 0 



10 



p dump_keys" { 

ant_dump_Jceys $ns 

) 

- dump__s vg B { 

ant__dump_svg $ns 0 

) 

-erase" { 

#puts ■ cmd = draw: $args" 
switch — [1 index $args 0J { 

"all" { return [ant_erase_all $ns] } 
default { ant__erase $ns [lindex $args 0] } 



15 



} 



} 



20 



•insert" { 

#puts * and = insert: $args n 

switch — [lindex $args 0] { 

"vertex* { return [ant_insert_vertex $ns [lindex $args 1] [lindex $args 2 J J } 
•ptrverf { return [ant_insert_j?trvert $ns [lindex $args 1] [lindex $args 2] 

[ lindex $args 3 ) ] } 



) 



} 



25 



30 



35 



"kind" { 



ant_kind $ns 



> 



"load" { 



"make" { 



•all- 
•svg" 



ant_load $ns [lindex $args 0] 



switch — [lindex $args 0] { 

•active* { return [antjaake $ns active [lindex $args 1)] ) 
{ return [antjnake_all $ns [lindex $args 1] ] } 
{ return [ ant__make_svg_a 1 1 $ns [lindex $args 1] ] } 

} 



40 



45 



[lindex $args 3]] } 



{ 

#puts ■ cmd = move: $args" 
switch — [lindex $args 0) { 

"delta" { return [ant_move_ant_delta $ns [lindex $args 1]] } 



"vertex* 
"head" { 
"ptrvert 



{ return [ an t_mo ve_ver t ex $ns [lindex $args 1] 
return [ an t_move_p tr_head $ns [lindex $args 1] 



[lindex $args 2]) } 
[lindex $args 2]] } 



{ return [ ant__move__ptr_ver t $ns [lindex $args 1] [lindex $args 2] 



"tail" ( return [ant_move_jptr__tail $ns [lindex $args 1] [lindex $args 2]] } 



50 



55 



60 



65 



70 



75 



80 



"read_cmds B { 

return [ants_read__cmds $ns [lindex $args 0]] 

) 

■parse" { 



return (ants_j>arse $ns [lindex $args 0)] 



•point- { 



ant_point $ns [lindex $args 0] 



•points* { 

ant_points 

{ 



$ns 



) 

•pointer 

#puts " cmd = move: $args' 
switch — [lindex $args 0) { 

•style" { return [ant_ptr_style $ns (lindex $args 1) [lindex $args 2]] ) 
•pin" { return [ant_ptr_pin $ns [lindex $args 1] [lindex $args 2]1 } 
•symbol" { return [ant_ptr_symbol $ns [lindex $args 1] [lindex $args 2]] 

) 



} 



•save" { 



) 



ant__save $ns 
select" { 

return [ant_select $ns [lindex $args 0]] 



•get- { 

#puts • cmd = get: $args" 
switch — [lindex $args 0] { 

•key" { return $antkey > 
"color" < return $color ) 
•code" { return $code } 
•inview" { return $inview } 
■ symbol B { return $symbol ) 
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"label- { return $ label } 
"caption" { return $caption } 
■cs_class" { return $cs_class } 
"cs_tumor" { return $cs_tumor } 
5 "cs_jiode" { return $cs_node > 

■cs_metastasis" { return $cs_metastasis } 
B cs_note" { return $cs__note } 
default { return $antkey } 
) 

10 ) 

"set" { 

#puts " and = set: $args" 
switch — tlindex $args 0] { 

t-head" { return [ant_set__pointer $ns [lindex $args 1J) } 
15 "color- { return tant_set_color $ns [lindex $args 1]] } 

•order- { return [ant_set_order $ns [lindex $args 1)1 ) 

"view" £ return [ant_jset_view $ns [lindex $args 1]] } 

•inview" { return [ant_set_inview $ns [lindex $args 1]] } 

•code" { return [ ant_.se t_code $ns [lindex $args 1]] } 
20 "symbol" { return [ant_jset_jsynibol $ns [lindex $args 1)) > 

"label" { return [ant_set__label $ns [lindex $args 1]1 ) 

"caption- { return [ant_set_caption $ns [lindex $args 1]] } 

"cs_class" { return (ant_set_cs__class $ns [lindex $args 1)] } 

"cs_tumor" { return [ ant_.se t_cs__tumor $ns [lindex $args 1]] ) 
25 "cs_node" { return [ ant_.se t_cs_node $ns [lindex $args 1] ] ) 

"cs_metastasis" { return [ant_set_cs_jnetastasis $ns [lindex $args 1J ) } 

"cs_note" { return [ant_Set_cs_note $ns [lindex $args 1] ) } 

} 

) 

30 "update" { 

#puts " and = set: $args" 

switch — [lindex $args 0] { « 
"view" [ return [ ant_upda te_view $ns] } 

} 



35 } 



default { ■ 

puts "ERROR unknown command = $cmd" 

) 



40 

return {} 

) 

proc iat: :ant: :precmd { ns pre } { 

45 

variable precmd 

upvar #0 [join [list [namespace current] $ns cmdcanvas] ::] cmdcanvas 

50 switch $pre { 

■canvas" { set precmd $ cmdcanvas } 

•annotations" { set precmd [join [list [namespace current] $ns ] ::3 > 
default { 

puts "ERROR unknown precmd = $pre" 

55 ) 
) 

) 

proc iat: : ant :: create { args } { 
60 variable TRACE 

if ($TRACE) { puts -iat: : ant: : create: $args" > 

set nsid [next_nsid] 
65 set ns (namespace current] : :ants$nsid 

namespace eval $ns ( 
variable select_mode annotation 
variable cmdcanvas 
*70 variable canvas 

variable of fsetX 0 

variable of fsetY 0 

variable imageX 0 
variable imageY 0 
75 variable orders 

variable polys 

variable aheads 

variable averts 
variable atails 
80 variable adSYMs 

variable adPTRs 
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variable kinds 
variable colors 
variable inviews 
variable codes 
5 variable symbols 

variable labels 
variable captions 
variable cs_ classs 
variable cs_tumors 
10 variable cs_nodes 

variable cs_metastasiss 
variable cs_notes 

array set aheads [list] 
15 array set averts [list] 

array set atails [list] 
array set sdSYMs [list] 
) 

20 set cmd "proc [namespace current] : :ants$ns id { and args } (eval [namespace current] : :proc ants$nsid 

\$cmd \$args}" 

namespace eval : : $cmd 

eval "[namespace current] : :ants$ns id configure $args" 

25 ant_create__defaults 

— r return [namespace current] : :ants$nsid 

> 

30 proc iat: :ant: :ant_close { ns ) { 
variable TRACE 

if {$TRACE> { puts "iat: rant: : close: $ns" ) 

ant_delete__all $ns 
35 ant_create__defaults 

} 

proc iat :: ant: : destroy { args > { 
40 variable TRACE 

if { $TRACE } { puts ■ iat : : ant : : destroy : $args " ) 

) 

45 proc iat : :ant: :set__canvas { ns args } [ 
variable TRACE 

if {$TRACEJ { puts "iat: :ant; :set_canvas: $ns $args" } 



50 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
set canvas [lindex $args 0] 



} 



55 proc iat: :ant: :set_cmdcanvas ( ns args } { 
variable TRACE 

if {$ TRACE) { puts * iat : : ant : : set_cmdcanvas : $ns $args" } 



60 



65 



variable precmd 

upvar #0 [join [list [namespace current) $ns cmdcanvas] ::] cmdcanvas 

set cmdcanvas [lindex $args 0) 
set precmd $ cmdcanvas 



) 



proc iat: :ant: :set_image__size { ns args ) { 
variable TRACE 

70 if <$TRACE) { puts "iat: :ant: : set_image_size: $ns $args" ) 

upvar #0 [join [list (namespace current] $ns iroageX] ::] imageX 
upvar #0 [join [list [namespace current] $ns imageY] ::] imageY 

75 set* imageX [lindex [lindex $args 0) 0) 

set imageY [lindex [lindex $args 0] 1] 



font__update $ns 



80 ) 



10 
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" proc iat: :ant: : set__image_of f set { ns args ) { 
variable TRACE 

if {$ TRACE) { puts "iat: :ant: :set_image_of fset: $ns Sargs* > 

5 upvar #0 [join [list [namespace current] $ns offsetx] ::] offsetx 

upvar #0 [join [list [namespace current] $ns offsetY] ::] offsetY 

set offsetx [lindex [lindex $args 0] 0J 
set offsetY [lindex [lindex $args 0] 1] 



) 

proc iat : :ant: :set_select_mode { ns mode } { 
variable TRACE 

15 if { $TRACE) [ puts "iat: :ant: : set_select_raode : $ns $mode" } 

upvar #0 [join (list [namespace current] $ns select_mode] : : ] select_mode 

if {$mode == -edit" } { 
20 set select_mode edit 

) else ( 

set select_jmode annotation 

} 

25 > 

proc iat: :ant: :ant_set_color ( ns clr } { 
variable TRACE 

if {$TRACE> { puts "iat: :ant: :ant_set_color : $ns $clr" > 

variable rawsave 

variable color 

variable styleColorDef ault 

35 if {$clr ==-*}{ 

set color $styleColorDef ault 

} else { 

set color $clr 

> 



30 



40 



45 > 



if (!$rawsave) { 

ant_save $ns 
#ant_draw $ns active 
> 



50 



proc iat : : ant : : ant__set_order { ns txt ) { 
variable TRACE 

if {$TRACE> < puts " iat : : ant : : ant_set_order : $ns $txt" > 

variable rawsave 
variable order 



55 



60 ) 



set order $txt 

if {!$rawsave} { 
#ant_save $ns 
#ant_draw $ns active 

) 



65 



proc iat : : ant : : ant_set_view { ns txt ) { 
variable TRACE 

if { $TRACE) ( puts »iat: :ant: :ant_set_view: $ns $txt" ) 

variable rawsave 
variable view 



70 



75 



set view $txt 

if (!$rawsave) { 
ant_save $ns 
ant_draw_all $ns 

> 



proc iat: :ant: : ant_update_view { ns } { 
variable TRACE 

80 if ($TRACE) { puts "iat: :ant: :ant_update_view: $ns* } 
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upvar #0 [join flist [namespace current] $ns inviews] ::] inviews 

set allvals [list] 

foreach (key value) [array get inviews] { 
5 #puts ■ inview: $key = $value" 

set vals [split $value] 
foreach (val) $vals { 

if {(lsearch $allvals $val] < 0} { 

set allvals [concat $allvals $val] 

10 } 
) 

> 

#return (list ABC] 
15 return [lsort -dictionary $allvals] 

} 

proc iat: :ant: : ant_set_inview { ns txt > { 
variable TRACE 

20 if {$TRACE} { puts -iat: rant: :ant_set_inview: $ns $txf } 

variable rawsave 
variable inview 

25 set inview $txt 

if { ! $rawsave} { 
#ant_save $ns 
#ant_draw $ns active 

30 } 
} 

proc iat: :ant: :ant_set_code { ns txt ) { 
variable TRACE 

35 if <$TRACE) { puts -iat: rant: : ant_set_code : $ns $txt" ) 

variable rawsave 
variable code 

40 set code $txt 

if (!$rawsave) { 
#ant_save $ns 
#ant_draw $ns active 

45 ) 
) 

proc iat : : ant : : ant_set_symbol { ns txt ) { 
variable TRACE 

50 if {$TRACE} { puts »iat: :ant: :ant_set_symbol : $ns $txt* > 

variable rawsave 
variable symbol 

55 set symbol $txt 

if (!$rawsave) { 

#ant_save $ns 
#ant_draw $ns active 

60 } 
> 

proc iat: rant: : ant_.se tJLabel { ns txt ) { 
variable TRACE 

65 if {$TRACE> { puts "iat: rant: : ant_set_label .- $ns $txt n > 

variable rawsave 
variable label 

70 set label $txt 

if {!$rawsave) { 

#ant_save $ns 
#ant_draw $ns active 

75 ) 
) 

proc iat r rant: ran t_set_cs_class { ns txt } { 
variable TRACE 

80 if {$TRACE} { puts -iat: rant: :ant_set_cs_class: $ns $txt" ) 
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variable rawsave 
variable cs__class 

set cs_class $txt 

5 

> 

proc iat : : ant : : ant_set_cs_ tumor { ns txt } { 
variable TRACE 

10 if {$TRACE} { puts "iat: :ant: : ant_set_cs_tumor : $ns $txt n } 

variable rawsave 
variable cs_tumor 

15 set cs_tumor $txt 

} 

proc iat : : ant : : ant_set_cs_node { ns txt } { 
20 variable TRACE 

if { $TRACE} { puts " iat : : ant : : ant_set_cs_node : $ns $txt" } 



25 



variable rawsave 
variable cs_jiode 

set cs_node $txt 



30 proc iat : :ant : :ant_set_cs_metastasis { ns txt } { 
variable TRACE 

if {$TRACE> { puts "iat: : ant: : ant_.se t__cs_jnetastasis : $ns $txt" ) 

variable rawsave 
35 variable csjnetastasis 

set cs_jnetastasis $txt 

} 

40 

proc iat : : ant : : ant_set_cs__note { ns txt } { 
variable TRACE 

if {$ TRACE} { puts "iat: :ant: :ant_set__cs_note: $ns $txf } 

45 variable rawsave 
variable cs_note 



set cs_note $txt 



50 ) 



55 



proc iat: :ant: :ant_set_caption { ns txt } { 
variable TRACE 

if { $TRACE> { puts "iat: :ant: : ant_set_,caption : $ns $txt" } 

variable rawsave 
variable caption 



60 



65 } 



set caption $txt 

if {!$rawsave> { 
#ant_save $ns 
#ant_draw $ns active 

) 



# roust be called as part of imageUpdate 
proc iat : : ant : : f ont_update { ns } { 

variable styleFontName 
70 variable styleFont Small 

variable stylePontDefault 

variable styleFontLarge 

upvar #0 [join (list [namespace current] $ns imageX) ::] imageX 
75 upvar #0 [join [list [namespace current] $ns imageY] ::] aroageY 

set flist [list] 

lappend flist styleFontSmall fontSmall 
lappend flist styleFontDefault fontDefault 
80 lappend flist styleFontLarge fontLarge 
foreach (size font) $flist { 



5 ) 
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#upvar #0 styleSi2e $size 

set calcSize [expr round(ceil ( ( ($imageX + $imageY)/2) * 0.001 * (set $size] ) ) } 
font configure $font -family $styleFontName -size $calcSize 

} 



proc iat : : ant : : ant_next_key { } { 
variable rawkey 
set key $ rawkey 
10 incr rawkey 

return $key 

} 

proc iat : : ant : : orderChange (old new} { 
15 variable kind 
variable order 
variable orders 
variable orderToKey 

20 if {[info exists orderToKey ($ old) J > { 

set orderToKey ($new) $orderToKey ($old) 
unset orderToKey ($old) 
set order $new 

set orders ( $orderToKey ( $new) ) $new 
25 } else { 

# sameting is wrong... orderToKey is not in sync with annotations, 
error "orderToKey does not contain $old" 

} 

# if current annotation is a group then change sub -anno tat ions orders 
30 # that match the old order pattern... 

if {$kind == "group"} { 

foreach {key ord} [array get orders} { 
if {[regexp "~$old" $ord} } { 
set tmpord ■■ 
35 regsub "*$old" $ord $new tmpord 

#puts ■ iat :: ant :: orderChange group $ord -> $ tmpord" 
set orders ($key) $tmpord 

> 

) 

40 } 



> 

proc iat: : ant: : orderToKey { ord } { 
variable orders 
45 variable orderToKey 

set key 

if {[info exists orderToKey ( $ord) } } { 
set key $orderToKey ($ord) 

50 ) 



} 



return $key 



55 proc iat : : ant : : imageUpdate { ox oy ix iy } { 

variable canvas 

variable offsetX 

variable of f setY 

variable imageX 
60 variable imageY 

variable polygons 

variable points 



65 



70 



75 } 



# breaking api and not loading /saving annotation . 

set off setX $ox 
set offsetY $oy 
set imageX $ix 
set imageY $iy 

# pointer needs this into too . . . 
iat: :pointer: : imageUpdate 

stylePontUpdate 



proc iat: :ant: : isPointlnPoints { pt pts } { 
set n 0 

set x [1 index $pt 0] 
80 set y [lindex $pt 1] 
foreach pt $pts { 
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set vx [lindex $pt 0] 
set vy [lindex $pt 1J 
if Uexpr abs{$vx - $x) ) < 4} { 

if Uexpr abs($vy - $y)3 < 4) { 
5 return $n 

} 

} 

incr n 

> 

10 return -1 
} 

proc iat: :ant: : isPointlnBox { x y box } { 
set xl [lindex $box 0] 
15 set yl [lindex $box 1] 
set x2 [lindex $box 2] 
set y2 [lindex $box 3] 
if {[expr $x > $xl && $x < $x2] } { 

if { [expr $y > $yl && $y < $y23 > ( 
20 return 1 

) 

} 

return 0 

} 

25 

proc iat: :ant: : point sTrans la teOLD { dx dy pts } { 

#puts "iat: :ant: :points_translate : $dx $dy* 
#puts " points = $pts" 
set newpts [list J 
30 foreach pt $pts { 

set x [expr [lindex $pt 0] + $dx) 
set y [expr [lindex $pt 1] + $dyj 
lappend newpts [list $x $y] 

) 

35 return $newpts 
> 

proc iat: :ant: ipointsPromlOlL.OIiD { maxX maxY pts } ( 
#puts -iat: : ant: : point sFroml OK: $pts" 
40 set newpts [list] 
foreach pt $pts { 

set x [expr round {( [lindex $pt 0] *$maxX) /10000)+1] 
set y [expr round (< [lindex $pt 1) *$maxY) /10000) +11 
# also add offset! 
45 #set x [expr $x + $offsetX] 

#set y [expr $y + $offsetY) 
lappend newpts [list $x $y] 

} 

return $newpts 

50 } 

proc iat::ant::pointsTol0K^OLD { maxX maxY pts > { 
fputs -iat: rant:: point sTolOK: $maxX $znaxY $pts" 
set newpts [list) 
55 foreach pt $pts { ^ 

set x [expr round <( (lindex $pt 0) *10000> /$maxX> ) 
set y [expr round (( C lindex $pt 1)*10000) /$roaxY) ] 
lappend newpts [list $x $yl 

) 

60 #puts "before: $pts" 

#puts -after: $newpts" 

return $newpts \ 

} 

65 proc iat: :ant: :pointsTolOK { maxX maxY pts > { 

#puts -iat: :ant::pointsTolOK: $maxX $maxY $pts- 
set newpts [list] 

f0rG set ^[forLt "%1.5f [expr doublet [lindex $pt 0])/$maxX)] 
70 set y [format -%1.5f [expr doublet t lindex $pt l])/$maxY]) 

lappend newpts [list $x $y] 

> 

#puts "before: $pts" 
#puts "after: $newpts" 
75 return $newpts 
) 

proc iat: :ant: :pointsFromlOK { maxX maxY pts ) { 
tputs "iat: :ant: :pointsFraml0K: $pts" 
80 set newpts [list] 
foreach pt $pts { 
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set x [expr round ( [lindex $pt 0J*$maxX>] 
set y [expr round ( [lindex $pt l]*$maxY)j 
lappend newpts [list $x $y) 

} 

#puts "before: $pts" 
#puts "after: $newpts" 
return $newpts 



10 # calculate "centroid" of one, two and three* point rois 
proc iat : :ant : : roiCentroid { } { 
#pu t s ■ polygonCentroid D 
variable points 
set ttlpts [llength $points] 
15 set xs [list] 

set ys [list] 
f oreach pt $points { 

lappend xs [lindex $pt 0) 
lappend ys [lindex $pt 1] 

20 } 

if {$ttlpts <= 0} { 

return 0 
} elseif {$ttlpts == 1} { 

return [list [lindex $xs 03 [lindex $ys 0] ] 
25 ) elseif ($ttlpts == 2} { 

set midx [expr ([lindex $xs 0] + [lindex $xs l})/2] 
set midy [expr {[lindex $ys 03 + [lindex $ys l])/2] 
return [list $midx $raidy] 

) 

30 #puts "xs = $xs B 
#puts "ys = $ys* 
set n (llength $xs] 
if {$n < 3} { return 3 } 

set ai 0 ; set atmp 0 ; set xtmp 0 ; set ytrop 0 
35 set j 0 

for {set i [expr $n -1) > {$j < $n) {incr j> { 

set ai [expr [lindex $xs $i) * [lindex $ys $j] - [lindex $xs $j] * [lindex $ys $i]] 

incr atmp $ai 

incr xtmp [expr ([lindex $xs $ j ] + [lindex $xs $i] ) * $ai] 
40 incr ytmp [expr ([lindex $ys $j] + [lindex $ys $i] ) * $ai] 

set i $j 

) 

set area [expr $atmp / 2] 
if {$atmp != 0} { 
45 set xc [expr $xtmp / (3 * $atmp>] 

set yc [expr $ytmp / (3 * $atmp)] 
return [list $xc $ycj 

) 

return 2 

50 > 

proc iat: :ant: :ant_create_defaults {) { 

#puts • iat : : ant : : ant_create_def aul ts ■ 

55 variable antkey 
variable order 

variable points 
variable heads 
variable verts 
60 variable tails 
variable dSYMs 
variable dPTKs 

variable kind 
variable color 
65 variable inview 
variable code 

variable symbol 
variable label 
variable caption 
70 variable cs_class 
variable cs__turaor 
variable cs_node 
variable cs_pietastasis 
variable cs_note 



75 



variable styleColorDefault 



set antkey " ■ 
set order m 0" 
80 set points [list] 

array unset heads 
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array set heads [list) 

array unset verts 

array set verts [list] 

array unset tails 
5 array set tails t list J 
array unset dSYMs 
array set dSYMs [list) 
array unset dPTRs 
array set dPTRs [list] 

10 

set kind "none" 

set color $styleColorDefault 

set inview 

set code 
15 set symbol 

set label 

set caption 

set cs_class 

set cs_tumor ■■ 
20 set csjode 

set cs__metastasis 

set cs_note 

return 

25 } 

proc iat: :ant: :ant_create { ns {inkind {none}} } { 
variable TRACE 

if {$ TRACE} { puts "iat: cant: :ant_create: $ns $inkind n } 

30 

upvar #0 [join [list [namespace current] $ns orders] ::] orders 

variable antkey 
variable order 
35 variable kind 

ant_create_defaults 



# find max existing order. . . 
40 set max 0 

foreach {key value) {array get orders) { 
if {[expr ceil($value)] > $max} { 

set max [expr int (ceil ($value) ) ] 

) 

45 ) 

incr max 

set antkey [ant_next_key] 
set order $max 
50 set kind $ inkind 



> 

proc iat:: ant ::ant_create jointer { ns head tailpt (vertpts {}) } { 
55 Xf^^TRAC^^puts ■ iat:: ant : :ant_create jointer: $ns $head $ tailpt $vertpts" } 



variable rawsave 
variable autoptr 
60 variable thisptr 

variable antkey 
variable points 
variable heads 
variable verts 
65 variable tails 
variable dSYMs 
variable dPTRs 

set idx $head 
70 if {$rawsave} { 

if {$idx == -auto") { 

# this assumes roi has < 1000 pts 
set idx [incr autoptr] 

) 

75 } else { 

if {$idx mm -auto") { . 

set idx [nearestjoint $tailpt $poants] 

) 

) 

80 

#puts " idx = $idx" 
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set tbisptr $idx 

set heads ($idx) $head 

set verts ($idx) $vertpts 
set tails ($idx) $tailpt 
5 set dSYMs($idx) "none" 
set dPTRs($idx) "arrow" 

if {!$rawsave> { ant^save $ns } 

) 

10 

proc iat : :ant : :ant_ptr_symbol { ns ptnum (style "none") } { 
variable TRACE 

if { $ TRACE} { puts "iat: :ant: :ant_ptr_syxnbol : $ns $ptnum $style" } 

15 variable rawsave 
variable thisptr 
variable dSYMs 

if {$ptnum == "active") { set ptnum $ thisptr } 
20 #puts * ptnum = $ptnuro B 
if {$style == • toggle *) { 
set old $dSYMs ( $ptnum) 
switch $old { 

■none" { set style "symbol" } 
25 "symbol" { set style "label" } 

"label" { set style "code" } 
_ "code" { set style "none" ) . 

default { set style "symbol" } 

) 

30 set dSYMs { $ptnum) $style 

} else { 

set dSYMs($ptnum) $style 

) 



35 if (!$rawsave) { ant_save $ns } 
} 



proc iat: :ant: :ant_ptr_style { ns ptnum {style "arrow") ) { 
variable TRACE 

40 if {$TRACE) { puts " iat : : ant : : ant_pointer_style : $ns $ptnum $style" ) 



variable rawsave 

variable thisptr i 
variable dPTRs 

45 

if { $ptnum == "active") { set ptnum $ thisptr ) 
#puts " ptnum = $ptnum" 
if {$style == "toggle") { 
set old $dPTRs($ptnum) 
50 switch $old { 

"none" { set style "line" ) 
"line" { set style "arrow" ) 
■arrow" { set style "diamond" ) 
■diamond" { set style "none" ) 

55 ) 

set dPTRs ( $p tnum ) $style 
) else { 

set dPTRs ($ptnum) $ style 

) 

60 

if (!$rawsave) { ant_save $ns ) 

) 



proc iat : : ant : : ant_ptr_pin { ns ptnum {pin "auto") ) { 
65 variable TRACE 

if {$TRACE) { puts "iat : :ant: :ant_pointer_style : $ns $ptnum $pin" ) 

variable rawsave 
variable heads 

* 70 

#puts • ptnum = $ptnum* 
if {$pln == "toggle") { 

set old $heads ( $ptnum) 
switch $old { 
75 "auto" { set pin $ptnum ) 

default { set pin "auto" ) 

) 

set heads ($p tnum) $pin 
) else { 

80 set heads ($ptnum) $pin 

) 
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if {!$rawsave} { ant_save $ns > 

} 

5 proc iat: :ant: :ant_delete { ns key } { 
variable TRACE 

if {$TRACE> { puts "iat: :ant: :ant_delete: $ns $key" } 
variable antkey 

10 

upvar #0 [join [list [namespace current] $ns polys] ::) polys 
upvar #0 [join (list [namespace current) $ns kinds] ::] kinds 
upvar #0 [join [list [namespace current] $ns aheads] ::] aheads 
upvar #0 [join [list [namespace current] $ns averts] ::] averts 
15 upvar #0 [join [list [namespace current] $ns atails] ::] atails 

upvar #0 [join [list [namespace current] $ns colors] ::] colors 
upvar #0 [join [list [namespace current] $ns inviews] ::] inviews 
upvar #0 [join [list [namespace current] $ns symbols) : : ] symbols 
upvar #0 [join [list [namespace current] $ns labels) ::) labels 

20 

if {$key ■■) { set key $antkey } 
if {$key == "active"} { set key $antkey } 
#puts " DELETING ANT: $key° 

25 if {[info exists polys ($key) ) ) { 

set polys ($key) [array get [list]] 

set kinds ($key) [array get [list]) 

set aheads ($key) [array get [list]] 

set averts ($key) [array get [list]] 
30 set atails ($key) [array get [list]] 

set colors ($key) [array get [list]) 
set inviews ($key) [array get [list]] 
set symbols ( $key) [array get [list]) 

set labels ($key) [array get [list]) 

35 

unset polys ($key) 
unset kinds ($key) 
unset aheads ($key) 
unset averts ($key) 
40 unset atails ($key) 

unset colors ($key) 
unset inviews ($key> 
unset symbols ($key) 
unset labels ($key) 

45 ) 

ant_create_defaults 

) 

50 

proc iat: :ant: :ant_delete_all { ns ) { 
variable TRACE 

if {$TRACE> { puts "iat: *.ant: : ant_delete_all : $ns" } 

55 variable rawkey 

upvar #0 [join [list [namespace current] $ns polys] ::] polys 

foreach (key value) [array get polys] { 
60 puts ■ key * $key, value = $value" 

ant_delete $ns $key 

) 

set rawkey 1 

65 } 

proc iat: rant: :roiDelete { {key {}} } { 

#puts "roi: :roiDelete: $key" 

variable canvas 
70 variable polygons 

variable roiKey 

variable points 

variable sectors 

variable point 
75 variable select 

variable orders 
variable symbols 
variable labels 
80 variable captions 
variable centers 



WO 2004/057439 - 29 - 

Appendix 2 

#variable gravity s 
variable pointers 
variable sizes 
#variable lengths 
5 variable colors 
# variable views 

variable order 

variable symbol 
10 variable label 

variable caption 

variable center 

# variable gravity 

variable pointer 
15 variable size 

#variable length 

variable color 

# variable view 

20 variable orderToKey 

if {$key ==••}( set key $roiKey } 

if {[info exists polygons ($ key) ] ) { 
25 roiLoad $key 

unset polygons ($roiKey) 
. unset orders ($roiKey) 

unset symbols ($roiKey) 

unset labels ($roiKey) 
30 unset captions ($roiKey) 

unset centers ($roiKey) 

#unset gravitys($roiKey) 

unset pointers ($roiKey) 

unset sizes ($roiKey) 
35 #unset lengths ($roiKey) 

unset colors ($roiKey) 

Sunset views ($roiKey) 

) 

if { I info exists orderToKey ($ order) ] } { 
40 unset orderToKey ($ order) 

> 

set roiKey 

set points [list] 
45 set order 

set symbol 

set label *• 

set caption 

set center ■" 
50 Iset gravity 

set pointer • ■ 

set size 

Iset length ■« 

set color 
55 Isec view 



set select ready 



) 



60 proc iat: :ant : : roiDeleteAll {) { 

fiputs "roi: : roiDeleteAll * 

variable rawID 

variable roiKey 

variable orders 
65 variable select 

roiEraseAll 

set keys [lsort -dictionary [array names orders}) 
.70 foreach key $keys { 

roiDelete $key 

) 

set rawID 1000 

75 set select READY 
) 

proc iat: rant: :ant_load { ns key } { 
variable TRACE 

80 if {$TRACE> { puts "iat: :ant: :ant_load: $ns $key» ) 
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variable antkey 
variable order 

variable points 

variable heads 

variable verts 
variable tails 
variable dSYMs 
variable dPTRs 

variable kind 
variable color 
variable inview 
variable code 

variable symbol 
variable label 
variable caption 
variable cs_class 
variable cs__tumor 
variable cs_node 
variable cs_metastasis 
variable cs_note 

upvar #0 [join [list [namespace current] $ns offsetx] ::1 offsetX 
upvar #0 [join tlist [namespace current] $ns offsetY] ::] offsetY 
upvar #0 [join [list [namespace current] $ns imageX] ::] imageX 
upvar #0 [join [list [namespace current] $ns imageY] ::] imageY 
upvar #0 [join [list [namespace current) $ns orders) ::] orders 
upvar #0 [join [list [namespace current] $ns polys] ::] polys 

upvar #0 [join (list [namespace current] $ns aheads] ::] aheads 
upvar #0 [join (list [namespace current] $ns averts] : .- ) averts 
upvar #0 [join [list [namespace current] $ns atails] ::] atails 
upvar #0 [join [list [namespace current] $ns adSYMs) ::] adSYMs 
upvar #0 [join [list [namespace current] $ns adPTRs] ::] adPTRs 
upvar #0 [join [list [namespace current] $ns kinds] ::) kinds 

upvar #0 [join [list [namespace current] $ns colors] ::] colors 
upvar #0 [join [list [namespace current] $ns inviews] ::] inviews 
upvar #0 [join [list (namespace current] $ns codes] ::] codes 
upvar #0 [join [list (namespace current) $ns symbols] ::] symbols 

upvar #0 [join [list [namespace current] $ns labels] ::] labels 
upvar #0 [join [list [namespace current) $ns captions] ::] captions 
upvar #0 [join [list [namespace current] $ns cs_classs] ::] cs_classs 
upvar #0 [join [list [namespace current] $ns cs_tumors) ::] cs_tumors 
upvar #0 [join [list [namespace current] $ns cs_nodes] ::] cs_nodes 
upvar #0 (join (list [namespace current] $ns cs_metastasiss] ::] cs_metastasiss 
upvar #0 [join (list [namespace current] $ns cs_notes] ;:] cs_notes 

if {$key -default 0 ) { 
ant_create_defaults 
return 

) 

if {Skey ==•">( return ) 

set antkey $key 

set tmps $polys<$antkey) 

set tmps [pointsFromlOK $ imageX $ imageY $tmps] 

set tmps [points_translate $offsetX $offsetY $tmps] 

set points $tmps 

#puts " points ($antkey) = $points" 



#puts B before heads = [array get heads] " 

array unset heads 

array set heads $ aheads ( $ antkey) 

#puts ° heads ($antkey) = [array get heads)" 

set tmps [list] 

foreach (key value) $atails($antkey) { 

set pts [pointsFromlOK $ imageX $ imageY [list $ value] ] 
set pts (points_translate $offsetX $offsetY $pts] 
lappend tmps $key [lindex $pts 0] 

) 

#puts " before tails = (array get tails] • 
array unset tails 
array set tails $ traps 

#puts • tails ($antkey) = [array get tails] ■ 

array unset dSYMs 

array set dSYMs $adSYMs ($antkey) 



array unset dPTRs 

array set dPTRs $adPTRs($antkey) 



5 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



75 
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set tmps [list) 

foreach {key value} $averts ($antkey) { 

set pts [point sFroml OK $imageX $ image Y $value] 
set pts fpoints_translate $offsetX $offsetY $pts) 
lappend tmps $key $pts 

) 

#puts " before verts = [array get verts] " 
array unset verts 
array set verts $tmps 

#puts " verts ($antkey) = [array get verts] ■ 



set order $orders ($antkey) 

set kind $kinds ($antkey) 
set color $colors ($antkey) 
set inview $inviews ($antkey) 
set code $codes ( $antkey ) 

set symbol $ symbol s ($antkey) 
set label $labels($antkey) 
set caption $captions($antkey) 

set cs_class $cs_classs ($antkey) 

set cs_tumor $cs_tumqrs ($antkey) 

set cs_node $cs_nodes ($antkey) 

set cs_metastasis $cs_metastasiss($antkey) 

set cs_note $cs_notes ($antkey) 



return 



#puts "roiLoad" 
variable canvas 
variable polygons 
variable roiKey 
variable imageX 
variable imageY 
variable offsetX 
variable offsetY 
variable points 
variable pointsDirty 
variable symbolDirty 
variable point 
variable select 



variable orders 
variable kinds 
variable symbols 
variable labels 
variable captions 
variable centers 
variable pointers 
variable sizes 
variable colors 
variable views 
variable sorls 
variable pointerPoints 
variable symbolPoints 



variable order 
variable kind 
variable symbol 
variable label 
variable caption 
variable center 
variable pointer 
variable size 
variable color 
variable view 
variable sorl 
variable pointerPoint 
variable symbolPoint 
variable angle 

if {$key ==••>{ return ) 



set roiKey $key 

set points $polygons($roiKey) 

set points CpointsFromlOK $imageX $imageY $points) 

set points [points_translate $offsetX $offsetY $points] 

#puts "pre load lblpt = $symbolPoints ($roiKey) • 
set symbolPoint $symbolPoints ($roiKey) 



f * 
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set symbolPoint [pointsFromlOK $imagex $imageY [list $symbolPoint] ) 
set symbolPoint [lindex [point s_trans late $offsetx $offsetY $symbolPoint] 0) 
#puts "post load lblpt = $symbolPoint < ' 

5 set order $ orders ($roiKey) 

set kind $kinds ($roiKey) 

set symbol $ symbol s ($roiKey) 

set label $ label s ($roiKey) 

set caption $captions ($roiKey) 
10 set center $centers ($roiKey) 

set pointer $pointers ($roiKey) 

set size $sizes ($roiKey) 

set color $colors ($roiKey) 

set view $views ($roiKey) 
15 set sorl $sorls{$roiKey) 

#set pointerPoint $pointer Point s < $roiKey) 



set pointsDirty 0 
set symbolDirty 0 

20 

roiPreDrawCalc 



#puts "order = $order" 

#puts "symbol = $ symbol* 

25 #puts "label = $label" 

#puts "caption = $caption" 

#puts "center = $center" 

#puts "gravity = $gravity" 

#puts "pointer = $pointer" 

30 } 



proc iat : : ant : : ant__save { ns } { 
variable TRACE 

if {$TRACE} [ puts "iat: :ant: :ant_save: $ns" } 

35 

variable rawsave 
variable antkey 
variable order 

variable points 
40 variable heads 

variable verts 
variable tails 
variable dSYMs 
variable dPTRs 
45 variable kind 

variable color 
variable inview 
variable code 

variable symbol 
50 variable label 

variable caption 
variable cs_class 
variable cs_tumor 
variable cs_jnode 
55 variable cs_metastasis 
variable cs_note 
variable view 



if [$antkey =="•}{ return } 
60 if { $points =={>}{ 

ant_create_defaults 
return 

) 

65 upvar #0 [join [list [namespace current] $ns offsetx) ::J offsetX 

upvar #0 [join [list [namespace current] $ns offsetY] ::] offsetY 
upvar #0 [join (list [namespace current] $ns imageX) ::] imageX 
upvar #0 [join [list [namespace current] $ns imageY] ::] imageY 
upvar #0 [join [list [namespace current] $ns orders] ::] orders 
70 upvar #0 [join [list [namespace current] $ns polys] ::] polys 

upvar #0 [join [list [namespace current) $ns aheads] ::) aheads 
upvar #0 [join [list [namespace current] $ns averts] ::] averts 
upvar #0 [join [list [namespace current] $ns atails) ::] atails 
upvar #0 [join [list (namespace current] $ns adSYMs) ::] adSYMs 
75 upvar #0 [join [list [namespace current] $ns adPTRs] ::) adPTRs 
upvar #0 [join (list [namespace current] $ns kinds] ::] kinds 

upvar #0 [join [list (namespace current) $ns colors] ::) colors 
upvar #0 [join [list [namespace current] $ns inviews] ::] inviews 
upvar #0 [join (list [namespace current) $ns codes) ::) codes 
80 upvar #0 [join [list [namespace current] $ns symbols] : : ) symbols 

upvar #0 [join [list [namespace current] $ns labels] ::] labels 
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upvar #0 [join [list [namespace current] $ns captions] ::] captions 

upvar #0 [join [list [namespace current] $ns cs_classs] ::] cs_classs 

upvar #0 [join [list (namespace current] $ns cs_ tumors] ::] cs_tumors 
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upvar #0 [join [list [namespace current] 
upvar #0 [join [list [namespace current) 
upvar #0 (join [list (namespace current] 



$ns cs_nodes ] : : ] cs_nodes 

$ns cs_metastasiss] ::] cs_metastasiss 

$ns cs_notes] : : ] cs_notes 



#if {$rawsave} { puts ■ RAW SAVE! " } 

10 if {$rawsave> { 
} else { 

if ( $ inview == && $view != -ALL" && $view •= -NONE" ] { 

set inview $view 
} elseif { $inview && $view == -ALL" > { 

15 set inview •NEW" 

} elseif { $ inview ==-«&& $view == "NONE" ) { 

set inview "NEW" 

} 



20 



) 



if {$rawsave> { 

set tmps $points 
> else { 

set tmps $points 

25 set tmps [points__translate -$offsetX -$offsetY $tmps] 

set tmps [pointsTolOK $imageX $imageY $ tmps I 

} 

set polys ($antkey> $tmps 

#puts ■ points ($antkey) = $polys($antkey) * 

30 

# pointer heads 

set aheads{$antkey) [array get heads] 
set adSYMs($antkey) [array get dSYMs) 
set adPTRs { $antkey ) [array get dPTRs] 
35 #puts " aheads($antkey) * $aheads ($antkey) ■ 



# pointer tails 
set tmps [list] 

foreach {key value) [array get tails] { 
40 if <$rawsave) { 

set pts [list $value] 
} else ( 

set pts [point s_trans late -$of f setX -$of f setY [list $value] ] 
set pts [pointsTolOK $imageX $ image Y $pts] 

45 > 

1 append tmps $key [1 index $pts 0] 

) 

set a tails <$antkey) $tmps 

#puts " atails($antkey) = $atails($antkey) " 

50 

# pointer verticies 
set tmps [list] 

foreach {key value} [array get verts] ( 
if {$rawsave} { 
55 set pts $ value 

) else { 

set pts (points_translate -$offsetX -$offsetY $value) 
set pts [pointsTolOK $imagex $imageY $pts] 

) 

60 lappend tmps $key $pts 

> 

set averts ( $antkey) $tmps 

#puts ■ averts ($antkey) = $averts ($antkey) " 



65 set orders ($ ant key) $order 

set kinds ($ant key) $kind 
set colors ($antkey) $color 
set inviews($antkey) $ inview 
set codes ($antkey) $code 
70 set symbols ($antkey) $ symbol 
set labels ($antkey) $label 
set captions ($antkey> $caption 



set cs_classs($antkey) $cs__ class 
75 set cs_tumors($antkey) $cs_tumor 
set cs_jnodes ($antkey) $cs_node 
set cs_metastasiss ($antkey) $cs_metastasis 
set cs_notes($antkey) $cs_note 

80 # This must be done carefully... 

# Calculate dynamic data for annotation. Currently: heads 



10 
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# raw data must not be left in loaded data... 
if ($rawsave) { 
s et rawsave 0 

ant_load $ns $antkey 

foreach {key value) [array get heads) { 
if {$value ==••)( continue ) 

" ^iL^S^int $ tails< $ lcey> ^points, 
if {$idx 1= $key) { 

# uodate head and tail 

#putT- RAWSAVE PTR UPDATE: $key -> $ioX 

set heads ($idx) auto 

set verts ($idx) $verts($key) 
15 set tails ($idx) $tails($key) 

set dSYMs($idx) $dSYMs{$key) 

set dPTRs($idx) $dPTRs($key) 

set heads ($key) 
on set verts ($key) 

ZU set tails ($key) 

set dSYMs{$key) 

set dPTRs($key) 

) 

25 > 
) 

ant_save $ns 
ant_create_defaults 

3Q set rawsave 1 



return 



35 #puts -order = $ order s ($roiKey) 

#puts -symbol = $ symbols ($roiKey> 
#puts -label = $labels($roiKey • 
#puts -caption = $captions($roiKey) 
#puts -length = $lengths($roiKey) 

40 #puts -size = $sizes<$roiKey>- 

^uts -color = $colorsl$roxKey)- 
#puts -pointer = $ P ointers($roxKey 
#puts -gravity = $gravitys ($roxKey) 
#puts -center = $centers ($r 01 Key) 



45 



) 



proc iat : rant:: ant Jcind { ns ) { 
50 ^(Snlc^fputs -iat::ant::anOcind: $ ns- ) 



55 ) 



variable kind 
return $kind 



60 



65 



proc iat::ant::ant_point { ns idx ) { 

Ifl^rfputs -iat::ant::ant_point: $ ns $ idx- ) 

variable points 
return [lindex $points $idx) 

) 

proc iat::ant::ant_points { ns ) I 

If^^fputs . i at,.a n t::ant_po i n t s ! $ ns- ) 

70 variable points 

return $ points 

) 

1 5 

proc iat::ant::roiMoveRelative { opt ) ( 
variable canvas 
variable points 



80 set dx [lindex $dpt 0) 
set dy [lindex $dpt 1) 



WO 2004/057439 - 35 - ^^CT/US2003/017138 

Appendix 2 

set points (pointsTranslate $dx $dy $points] 
return 0 

) 

5 

proc iat : : ant : : roiCopy { > { 
#puts "roiCopy" 
variable canvas 
variable points 



10 



set newpts $points 

roiCreate 

set points $newpts 

15 return 0 

) 

proc iat : ;ant: :ant_erase { ns key > { 
variable TRACE 

20 if { $TRACE} { puts "iat: :ant: :ant_erase: $ns $key" } 

variable antkey 



upvar #0 [join [list [namespace current] $ns canvas] ::) canvas 

25 

set key [string tolower $key) 

if {$key "") {set key $antkey ) 

if <$key == "active") { set key $antkey > 

30 $canvas delete handle 

$canvas delete segment 
$canvas delete ptrvert 
$canvas delete ptrsect 

35 $canvas delete key$key 

> 

proc iat: rant; :ant_erase_all { ns ) { 
40 variable TRACE 

if ($TRACE) { puts °iat: :ant: :ant_erase_all: $ns* } 

upvar #0 [join [list [namespace current] $ns polys] ::] polys 

45 foreach {key value) [array get polys) { 

ant__erase $ns $key 

) 



) 

50 

proc iat : :ant: :ant_draw_precalc { ns ) { 

#puts 8 iat : : ant : : ant_draw_precalc : $ns • 



variable points 
55 variable kind 

variable color 

#variable center 

#variable pointer 

#variable angle 
60 #variable pointerPoint 

tvariable symbolPoint 

variable fillcolor 
variable linecolor 
65 variable styleColorLight 

variable styleColorDefault 
variable styleColorDark 
variable symbolFont 

70 if {$color as -default*) { 

set fillcolor $styleColorDef ault 
set linecolor $styleColorDef ault 

) else { 

switch $color { 

75 ■light" { set fillcolor $styleColorLight ; set linecolor $styleColorDark ) 

"dark- { set fillcolor $styleColorDark ; set linecolor $stylecolorLight ) 
default { 

set fillcolor $color 
set linecolor $color 

80 ) 
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10 



15 



} 

# group doesn't have visual annotation piece 
if {$kind == "group"} { return } 

#set angle [x2pts__angle $pointerPoint $symbolPoint] 

set size default 

set symbolFont fontDefault 

switch $size { 

-small* { set symbolFont fontSmall } 
-default" { set symbolFont fontDefault } 
"large- { set symbolFont fontLarge } 

) 



return 

# This is one case where symbolPoint is not user specified (also default) 
20 if {-$center$pointer« « • centernone - } { 

set symbolPoint [roiCentroid] 

) 

# draw from center or gravitate to edge... 
25 if {$center == -center") { 

set pt [roiCentroid] 

# This needs to be really repaired.. . one and two point roxs 

# dont have a center, so choose the first point... 
if ($pt == 3} { set pt Clindex $points 0] > 

30 ) else { 

# se t trap [iat: : point er: : gravityPoint $gravity [join $points] ) 
set tmp [iat: : pointer : mearestPoint $symbolPoint $points] 
set pt [lindex $points $tmp] 

} 

35 #puts -pointer index: $tmp- 
set pointer Point $pt 

set angle [iat: : pointer : :2ptsAngle $pointerPoint $symbolPomt] 
#set angle [iat :: pointer : tgravityAngle $gravity) 

} 

40 

proc iat: :ant: :ant_draw { ns key } { 
variable TRACE 

if ($TRACE) { puts "iat: :ant: :ant_draw: $ns $key" K 
45 upvar #0 [join [list (namespace current] $ns polys] ::} polys 

variable view 
variable inview 



50 variable antkey 

variable points 
variable kind 

#variable order 

variable color 
55 variable fillcolor 

variable linecolor 

#variable view 

#variable pointerPoint 

60 upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns offsetX] ::) offsetX 
upvar #0 (join [list (namespace current] $ns offsetYJ ::) offsetY 



set order -orderX- 

set key [string tolower $key] 

if {$key == "■} { set key $antkey } 

if {$key == •active") { set key $antkey > 

if {$key ==••}{ return 0 } 

# Must do this every draw in case of scale . . . 
ant__erase $ns $key 
ant_load $ns $key 



75 # return based on view 
if ($view == -ALL-) { 

# do nothing. . . 
} else ( 

if ($view == -NONE*) { return 0 ) 
80 if Ulsearch [split $inview] $view] < 0} { return 0 ) 

) 
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ant_draw_precalc $ns 

if {$kind == "none"} { return 2 } 
5 if {$kind == " group ■ > { return 0 ) 

#puts " ant key = $ ant key" 
#puts " kind = $kind" 

10 set parts "all" 
switch $parts { 
-none" (} 
-region- {) 

# all or pointer 
15 default { 

ant_draw_po inters $ns 

) 

) 

20 switch $parts { 
"none- {> 
-pointer" { } 

# all or region 
default { 

25 set tiwps [join $points] 

switch $kind { 
~ - -edge" { 

$canvas create line $traps -smooth true -width 2 -fill $fillcolor -tags [list ant roi 

key$antkey $ order) 
30 } 
•area" { 

$canvas create poly $tmps -smooth true -outline $fillcolor -width 2 -fill -tags flist 
ant roi key$antkey $orderJ 

#$canvas create poly $tmps -outline black -width 2 -fill -tags [list ant roi 

35 key$antkey $order] 
> 

# point is default! 
default { 

foreach {x y) $tmps { 

40 $canvas create oval [expr $x-6] [expr $y-6] [expr $x+6] [expr $y+6] -outline 

$fillcolor -width 3 -fill -tags [list ant roi key$antkey $order] 
> 

) 

) 

45 } 
} 

$canvas raise head 

50 return 0 

) 

proc iat::ant::ant_draw_all { ns ) { 
variable TRACE 
55 if ($TRACE) { puts "iat::ant::ant_draw_all: $ns" ) 

upvar #0 [join [list [namespace current] $ns polys] ::] polys 

foreach {key value) [array get polys] { 
60 ant__draw $ns $key 

) 

> 

65 proc iat: :ant: : ant_draw_pointers { ns {style normal]) { 
variable TRACE 

if {$TRACE) { puts "iat: rant: :ant_draw_po inters: $ns" ) 



70 



variable heads 



set rv -1 
set go 1 

while {$go >= 0) { 
set go -1 

75 foreach [key value) [array get heads] { 

if {$value =«= { continue ) 
set go [ant_draw__pointer $ns $key $ style] 
if {$go >= 0) { set rv $go; break ) 
if {$style =s= -edit") { 

80 ant_draw_ptr_vertexs $ns $key 

ant_draw_ptr_sectors $ns $key 
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) 

> 

) 

5 return $rv 

) 

proc iat: : ant: : an t_draw_po inter SAVE { ns ptnum {style normal}} { 
#puts "iat: :ant: :ant_draw_pointer: $ns $ptnum" 

10 

variable antkey 
variable points 
variable heads 
variable verts 
15 variable tails 

variable color 
variable fillcolor 
variable linecolor 



20 



25 



upvar #0 [join [list [namespace current) $ns canvas) ::) canvas 

puts 0 heads ($ptnum) = $heads ($ptnum) • 

puts * tails ($ptnum) = $tails ($ptnum) ■ 



set value $heads ($ptnum) 
if {$value == ■"*) I return } 
if {$value == -auto-} { 

set idx [nearest_point $tails <$ptnum) $points] 
30 if {$idx != $ptnum> { 

# update head and tail 
set heads ($ idx) auto 
set verts <$idx) $verts ( $ptnum) 
set tails ($idx) $ tails ($ptnum) 
35 set heads ($ptnum) " 

set verts ( $ptnum) ■ " 
set tails ($ptnum) 
set ptnum $idx 
return $idx 

40 ) 
} 

set headpt [lindex $points $ptnum) 

set tailpt $tails($ptnum) 

if {$tailpt return } 

45 

puts " head = $headpt 11 

puts ■ verts = $verts ( $ptnum) ■ 

puts ■ tail = $tailpt" 

50 set ptrlen [lindex [x2pts_length $headpt $tailpt] 0] 
set angle [x2pts_angle $headpt $tailpt] 



set x [lindex $heacfc>t 0) 
55 set y [lindex $headpt 1) 

set pinfo [create_pointer $ns arrow $ptrlen) 
if {$pinfo == -1} { return ) 
if {[llength $pinfol > 1} { 

set ppts [lindex $pinfo 1] 
60 set sub 0 

if <$sub == 1} { 

set tmpa [x2pts_angle $headpt $ tailpt) 

#puts *tmp angle = $tmpa* 

set ppts [point s_rotate $tmpa $ppts) 

SSTS^^JSS^' -lath 2 -fill b lue -ta«s Hist adomer 

key$roiKey) 

) else { 

set ppts [points_.ro tate $angle $ppts) 
70 set ppts [points_translate_lst $x $y $ppts) 

) 

if {$style == "edit") { 4 . ... 

set tmps [join [concat $headpt $verts ( $ptnum) $ tailpt) ] 

$canvas create line $tmps -width 2 -fill yellow -tags [list segment) 

75 ' ^^^crTateTly^ti -outline yellow -width 2 -fill » -ta«s Hist se^ent n^Pt^J 

# head handle 

set x [lindex $heacfc>t 0) 

set y [lindex $headpt 1) 
80 set xl [expr $x -3} 

set x2 [expr $x +3) 
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set yl [expr $y -3] 
set y2 [expr $y +3] 

Scanvas create oval $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle 

head num$ptnum] 
5 # tail handle 

set x [lindex $tailpt 03 
set y [lindex $tailpt 1] 
set xl [expr $x -33 
set x2 [expr $x +3] 
10 set yl [expr $y -3] 

set y2 [expr $y +3 3 

$canvas create oval $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle 

tail num$ptnum] 
) else { 

J- 5 $canvas create poly $ppts -outline $linecolor -width 1 -fill $fillcolor -tags [list ant 

pointer key$antkey3 
} 

} 

20 return -1 
} 

proc iat: : ant : :ant_draw_po inter { ns ptnum {style normal}) { 
variable TRACE 

25 if {$TRACE> [puts "iat: :ant: :ant_draw_pointer: $ns $ptnum" > 

variable antkey 

variable points 

variable heads 
30 variable verts 

variable tails 
variable dSYMs 
variable dPTRs 
variable kind 
35 variable code 

variable symbol 

variable label 

variable color 
4 0 variable fillcolor 

variable linecolor 
variable symbolFont 
variable pxl 

45 upvar #0 [join [list [namespace current J $ns canvas 3 ::3 canvas 

set value $heads<$ptnum) 

if {$value == • ■ ) { return > 
if {$value == -auto") { 
50 set idx [nearest_point $tails ($ptnum) $points3 

if {$idx != $ptnum) { 

# update head and tail 
set heads ($idx) auto 
set verts <$ idx) $verts ( $ptnum) 
55 set tails ($idx) $tails ( $ptnum) 

set dSYMs<$idx) $dSYMs ($ptnum) 
set dPTRs($idx) $dPTRs($ptnum) 
set heads ($ptnum) 

set verts ($ptnum) 
60 set tails ($ptnum) 

set dSYMs($ptnum) °" 
set dPTRs ( $ptnum) 
set ptnum $idx 

return $idx 

65 } 
) 

#puts ■ ptnum = $ptnum" 

set headpt [lindex $points $ptnum3 
70 set tailpt $ tails ($ptnum) 

if ($tailpt » ■•) { return } 
set draw_syrabol $dSYMs ( $ ptnum) 
set draw_style $dPTRs ($ptnum) 

75 #puts ■ head = $headpt" 

#puts ■ verts = $verts($ptnum) ■ 
#puts " tail = $tailpt" 

set ptrlen [lindex [x2pts_length $headpt $tailpt3 03 
80 if ([llength $verts ($ptnum) ] > 0} { 

set angle [x2pts_angle $headpt [lindex $verts($ptnum) 0]) 
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} else { 



set angle {x2pts_angle $headpt $tailpt] 



5 set sub 0 



set x [lindex $headpt 0] 
set y [lindex $headfc>t 11 

set pinfo [ create_pointer $ns $draw_style $ptrlen) 
10 if {$pinfo == -1} { return ) 

if ([llength $pinfo] > 1} { 
set hppts $pinfo 
if {$sub == 1} { 

set tmpa [x2pts__angle $heacpt $tailpt} 
15 #puts "trap angle = $tmpa" 

set ppts [points_rotate $tmpa $ppts) 

set ppts [points_translate_lst $x $y $pptsj 

#$canvas create line • $pointerPoint $symbolPoint* -width 2 -fill blue -tags [list adorner 

key$roiKey] 
20 ) else { 

set hppts [points_rotate $angle $hppts] 

set hppts [points_translate_lst $x $y $hppts] 

) 

set traps [list] 
25 lappend traps $headpt 

set tmps [concat $traps $verts($ptnum) J 
lappend traps $tailpt 
set ppts [makelt $ns $ptnum $ traps) 
if {$style == "edif} { 
30 set tmps [join [concat $headpt $verts ($ptnum> $tailpt] ] 

#$canvas create line $tmps -width 2 -fill yellow -tags [list segment] 
if {$draw_style != "none") { 

$canvas create poly $ppts -smooth true -outline red -width 2 -fill white -tags [list ant 
pointer key$antkey] 

35 $canvas create poly $hppts -outline red -width 2 -fill white -tags [list ant pointer key$antkey] 

) 

) elseif {$style == ■annotation" } { 

#$canvas create poly $ppts -outline yellow -width 2 -fill -tags [list segment num$ptnum] 
if { $draw_style != "none") { 

40 $canvas create poly $ppts -smooth true -outline red -width 2 -fill white -tags [list ant pointer 

key$antkeyj 

$canvas create poly $hppts -outline red -width 2 -fill white -tags [list ant pointer key$antkey] 

) 

# head handle 
45 #set x [lindex $headpt 0] 

#set y [lindex $headpt 1] 
#set xl [expr $x -3] 
#set x2 [expr $x +3] 
#set yl [expr $y -3] 
50 #set y2 [expr $y +3] 

#$canvas create oval $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle head 
num$ptnum] 

# tail handle 
set x [lindex $tailpt 0] 
55 set y [lindex $tailpt 1] 

set xl [expr $x -3 J 
set x2 [expr $x +3) 
set yl [expr $y -3] 
set y2 [expr $y +3] 

60 $canvas create oval $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle tail 

num$ptnum] 
} else { 

if {$draw__style != "none - } [ 

$canvas create poly $ppts -smooth true -outline $linecolor -width 1 -fill $fillcolor 
65 -tags (list ant pointer key$antkeyj 

$canvas create poly $hppts -outline $linecolor -width 1 -fill $fillcolor -tags [list ant pointer 

key$antkey] 
) 

} 

70 > 



set xt [lindex $tailpt 03 
set yt [lindex $tailpt 1) 



75 if {[llength $verts ($ptnum) ] > 0) { 

set angle [x2pts_angle [lindex $ver ts ( $ptnum) end] $tailpt] 
) else { 

set angle [x2pts_angle $headpt $tailpt] 

> 

80 

set anchor [ iat : : ant : : gravity_label $angle] 
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set dx 0 

switch Sanchor { 

"e" { set dx -$pxl > 
"w" { set dx $pxl ) 
5 "default- { set dx 0 } 

} 

set symbolfill $£illcolor 
if {$style != -normal- > { 
set symbol fill red 

10 > 

#puts " draw__symbol = $draw_symbol n 
if {$draw_symbol != -none-) { 
set ptrtxt - - 
switch $draw__syiribol { 
15 "symbol* { set ptrtxt $symbol } 

-label" { set ptrtxt $label } 
default { set ptrtxt } 

> 

if {$ptrtxt *="•>{ set ptrtxt $draw__symbol > 
20 $ canvas create text Cexpr $xt+$dx] $yt -text $ptrtxt \ 

-font $symbolFont \ 
-anchor "$anchor" \ 

-fill $symbolfill \ 
-tags [list adomer key$antkey] 

25 ) 

#$canvas create line [list texpr $xt-4] [expr $yt+4J [expr $xt+4] [expr $yt-4)) -fill red -width 2 
- -tags [list adorner key$roiKey] 

#$canvas create line [list [expr $xt+4] [expr $yt+4] [expr $xt-4] [expr $yt-4]] -fill red -width 2 
-tags [list adorner key$roiKey] 

30 

$canvas raise tail 
return -1 

> 

35 

proc iat : :ant: :makelt { ns ptnum pts } { 
variable TRACE 

if {$ TRACE) { puts "iat: :ant: -.makelt: $ns $ptnum $pts n } 



40 

variable kind 
variable dPTRs 

variable pxl 
variable px2 
45 variable px3 
variable px4 



50 



set negpts [list] 
set pospts [list] 

calc_size $ns 
set px $pxl 



set offset $px 
55 switch $dPTRs ($ptnum) { 

•line" { set offset $px3 ) 
default { set offset $pxl ) 

) 

60 set lstpt 

set pass 1 

foreach curpt $pts { 

if {$ curpt == {}) { continue ) 

if {$lstpt ■■} { set lstpt $curpt; continue } 
65 #puts • lstpt s $lstpt" 

#puts ■ curpt = $ curpt" 

set len [lindex [x2pts_length $lstpt $curpt) 0) 

#puts " len = $len* 

set ang [x2pts_angle $lstpt $curpt] 
70 #puts " ang = $ang" 

set lstx [lindex $lstpt 0] 

set lsty [lindex $ lstpt 1] 

set curx [lindex $curpt 0] 
set cury [lindex $ curpt 1] 
75 # zero is the line offset from head 

set zero 0 

if {$pass ==1) { set zero $offset ) 
# midline points 

set midtmp [list $zero 0 [expr 0+$len) 0 ] 
80 set midtmp [points_rotate $ang $midtmp} 

set midtmp [points_translate_lst $lstx $lsty $midtmp] 
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# negative X points 

set negtrop [list $zero [expr 0-$px] Cexpr 0+$len) [expr 0-$px) ] 
set negtmp [ point s_rotate $ang $ negtmp] 
set negtmp [points_translate__lst $lstx $lsty $negtmp] 
5 # positive X points 

set postmp [list $zero [expr 0+$pxl [expr 0+$len] [expr 0+$px] ] 

set postmp [point s_rotate $ang $postmp] 

set postmp (points_translate_lst $lstx $lsty $postmp] 

if {$pass == 1} { 

10 set negpts [list [1 index $midtmp 0] [lindex $midtmp 1]] 

set negpts [concat $negpts $negtmp) 

set pospts [concat [list [lindex $postmp 2] [lindex $postmp 33 [lindex $postmp 0] 
[lindex $postmp 1] ) $pospts] 
} else { 

15 lappend negpts [lindex $negtmp 2] [lindex $negtmp 3] 

set pospts [concat [list [lindex $postmp 2] [lindex $postinp 3]] $pospts] 

} 

set Istpt $curpt 
incr pass 

20 } 

# append midpoint to end 

# reverse the pospts and append to negpts 

set newpts [concat $negpts [lindex $midtmp 2] [lindex $midtmp 3] $pospts] 
#puts • newpts = $newpts" 

25 

return $newpts 

} 

proc iat : : ant : : ant_draw_pointer_old { } { 
30 #puts "pointerDraw" 

variable canvas 

variable imageX 

variable imageY 

variable offsetX 
35 variable off set Y 

variable roiKey 

variable points 

variable order 

variable symbol 
40 variable label 

variable center 

variable pointer 

variable size 

variable color 
45 variable sorl 

variable linecolor 

variable fillcolor 

variable pointerPoint 

variable angle 
50 variable symbolPoint 

variable symbolPoints 

variable orderToKey 

variable symbols 

55 variable styleFontSmall 

variable stylePontDe fault 
variable styleFont Large 

#set xl [expr $x -5] 
60 #set x2 [expr $x +5] 
#set yl [expr $y -5] 
#set y2 [expr $y +5] 

#$canvas create rect $xl $yl $x2 $y2 -fill -outline yellow -width 2 -tags [list handle $roiKey] 

65 #set fsz [expr round (ceil {( ($imageX + $imageY)/2) * 0.001 * 48 ))3 
set symbolFont fontDefault 
switch $size ( 

"small* { set symbolFont fontSmall > 
■default" { set symbolFont fontDefault ) 
70 "large" { set symbolFont fontLarge ) 

} 

#set fsz [expr round ( ceil ({ ($imageX + $imageY)/2) * 0.001 * $fptsz ))1 
#puts "font size = $fsz" 
#font configure $symbolFont -size $fsz 



75 



80 



# Test code . . . 
#drawTestAngles 

#set pt [lindex $points $pointerPoint3 
#puts "pointerPoint = $pointer Point" 

set sub 0 
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set ptrlen 0 

set pattern { * <\w\ : ) (1, 4}$} 
if {[regexp $pattern $symbol] } { 
# subordinate 
5 if {[info exists orderToKey ($ symbol) 3 } ( 

set sub 1 

set symbolPoint $symbolPoints ( $orderToKey { $syiribol ) ) 
# NOTE: symbolPoint stored as 10K relative... 

set symbolPoint [pointsFromlOK $imageX $imageY [list $symbolPoint) ) 
10 set symbolPoint [lindex [ point sTrans late $offsetX $offsetY $symbolPoint] 0] 

#set ptrlen [lindex [iat: :pointer : : 2ptsLength $pointerPoint $symbolPoint} 0] 

} 

#puts "symbol = $symbol, key = $orderToKey ($ symbol ) , keysymbol = $ symbols <$orderToKey ($symbol) ) ' 
#puts "symbolPoint = $symbolPoint" 

15 } 

set ptrlen [lindex (iat :: pointer : :2ptsLength $pointerPoint $symbolPoint ) 0] 



set x [lindex $pointer Point 0] 
20 set y [lindex $pointerPoint 1J 

set pinfo [iat : tpointer: : pointer $pointer $ptrlen] 
if {$pinfo == -1} { return } 
if {[llength $pinfoJ > 1} { 

set ppts [lindex $pinfo 1] 
25 if {$sub 1) { 

set tmpa [iat : :po inter :: 2ptsAngle $pointerPoint $symbolPoint] 
#puts "tmp angle = $trapa B 

set ppts [iat: : pointer : : pointsRotate $tmpa $ppts] 
set ppts [iat: : pointer : :pointsTranslate $x $y $ppts) 
30 #$canvas create line ■ $pointer Point $symbolPoint " -width 2 -fill blue -tags [list adorner 

key$roiKey) 

} else { 

set ppts [iat: : pointer :: pointsRotate $angle $ppts] 
set ppts [iat: :pointer: :pointsTrans late $x $y $ppts] 

35 } 

$canvas create poly $ppts -outline $linecolor -width 1 -fill $fillcolor -tags [list adorner 
key$roiKey $order] 
) 

if {"$center$pointer" == "centemone") { 
40 set ptt $pointerPoint 

) else { 

set ptt $symbolPoint 

} 

45 set xt [lindex $ptt 0] 

set yt [lindex $ptt 1] 
set drawtext $symbol 

if {$sorl == "label"} { set drawtext $label } 
if {$sub mm 0) { 
50 $ canvas create text $xt $yt -text $ drawtext \ 

-font $symbolFont \ 

-anchor [iat: :pointer : :gravityLabel $angle) \ 
-fill $fillcolor \ 

-tags [list adorner key$roiKey $order] 
55 #$canvas create line [list [expr $xt-4] [expr $yt+4] [expr $xt+4) [expr $yt-4]] -fill red -width 2 

-tags (list adorner key$roiKey] 

#$canvas create line [list [expr $xt+4) [expr $yt+4] [expr $xt-4] [expr $yt-4)) -fill red -width 2 
-tags [list adorner key$roiKey] 
) 

60 

> 

proc iat: :ant: :ant_select { ns key } { 
variable TRACE 

65 if { $TRACE } { puts "iat: :and: :ant_select: $ns $key" } 

variable antkey 

upvar #0 [join [list [namespace current) $ns canvas) ::) canvas 
70 upvar #0 [join [list [namespace current) $ns select_mode] ::) selectjnode 

set key (string tolower $key) 
#if {$key « "active") { set key $antkey } 
if {$key ==»»•} { return ) 
75 if {$key == "active") { set key $antkey } 

ant_load $ns $key 

#if {(roiDraw) > 0) { return ) 



80 



set rv 0 

#puts ■ select jnode = $select_mode" 
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#$canvas add tag CURRENT withtag key$antkey 
ant_erase $ns $key 
ant_ draw_segments $ns 
if {$select_mode == "edit*} { 
5 set rv [ant_draw_po inters $ns $select__mode] 

ant__draw_sectors $ns 

ant_draw_vertexs $ns 
} else { 

an t_draw_ver t exs $ns 
10 set rv [ant_draw_pointers $ns $select_mode] 

> 

#drawSynibolHandl e 



return $rv 



15 } 



20 



proc iat : : ant : : ant_deselect { ns } { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: :ant__deselect: $ns" > 
variable antkey 

upvar #0 [join tlist [namespace current] $ns canvas] ::] canvas 

25 if {$antkey == ■ • > { return > 

#puts " DESELECTING ANT: $antkey" 
ant_erase $ns $ antkey 
ant_draw $ns $ antkey 
ant_lower $ns $ antkey 



30 



return 



proc iat : : ant : : ant_move_ant_delta { ns dpt } { 
35 variable TRACE 

i f { $ TRACE > { puts " ia t : : ant : : ant_move_ant_.de Ita : $ns $dpt ■ } 

variable points 
variable verts 
40 variable tails 

upvar #0 [join [list [namespace current] $ns canvas} ::] canvas 

upvar #0 [join [list [namespace current] $ns select_mode] ::] select_mode 

45 set dx [lindex $dpt 0] 

set dy [lindex $dpt 1] 

#puts ■ before = $points" 

set points [points_translate $dx $dy $points] 
50 tputs ■ after = $points* 

if {$select_mode == "annotation - } [ 

foreach {key value} [array get tails] { 

set newpt [points_translate $dx $dy [list $value] ] 
55 set tails ($key) [lindex $newpt 0] 

set verts ($key) [points_translate $dx $dy $verts ($key> ] 

> 

} 

60 ant_save $ns 



65 proc iat : : ant : : ant_lower { ns key } { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: : ant_deselect : $ns" } 



70 



75 



variable antkey 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

set key [string tolower $key] 

if {$key == • active"} { set key $antkey } 

$canvas lower key$key 
$canvas raise key$key image 



> 

80 

# NOTE 
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*# doMakeSectors and drawVertexs are called as a pair (and should be called from 

# a single function doMakeHandles .... 

# Calling drawVertexs after doMakeSectors solves the problem of not being able 

# to delete a point because only the sector is clickable. This is because the 
5 # vertexs are drawn on top of the sectors. 

# 

proc iat : : ant : : ant_draw__sectors { ns } { 

10 variable points 

variable kind 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

15 $canvas delete sector 

set sectors [list] 
set lx 0 ; set ly 0 
set tmps $points 
20 if {$kind == -area") { 

lappend tmps [lindex $points 0] 

) 

set tmps [join $tmps] 
#puts "sector tmps = $tmps" 
25 foreach {x y) $tmps { 

if {$lx == 0 } { 

set lx $x ; set ly $y 
continue 
} else { 

30 set nx [expr < ($x - $lx)/2) + $1x3 

set ny [expr (($y - $ly)/2) + $ly] 
lappend sectors [list $nx $nyj 
set lx $x ; set ly $y 

) 



35 



> 



#puts "sectors = $sectors« 
set n 1 

40 foreach (pt) $ sectors { 

set x [lindex $pt 0] 

set y [lindex $pt 1) 

set xl [expr $x -3] 

set x2 [expr $x +3 3 
45 set yl [expr $y -3] 

set y2 [expr $y +3] 

set midx [expr round ( ($x2 + $xl) / 2 )3 

$canvas create poly $midx $yl $x2 $y2 $xl $y2 -fill yellow -outline black -width 1 -tags 
[list handle sector num$n] 
50 incr n 

> 

) 

proc iat: rant : :ant_draw_ptr_sectors { ns ptnum } { 

55 

variable points 
variable heads 
variable verts 
variable tails 
60 variable kind 

upvar #0 [join [list [namespace current] $ns canvas] :;] canvas 

set sectors [list] 
65 set lx 0 ; set ly 0 

set tmps [list] 

if ($heads($ptnum) == "auto"} { 

set idx [nearest_point $tails ($ptnum) $points] 
70 set headpt [lindex $points $idx) 

} else { 

set headpt [lindex $points $ptnum] 

} 

set tailpt $ tails ($ptnum) 

75 

set tmps [list] 

lappend tmps $headpt s 
set tmps [concat $tmps $verts ( $ptnum) ] 
80 lappend tmps $tailpt 
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set tmps (join $tmps] 

#puts ■ ptr sector tmps = $tmps" 

foreach {x y} $tmps { 

if {$lx == 0 } { 
5 set Ix $x ; set ly $y 

continue 
} else { 

set nx fexpr (($x - $lx)/2) + $lx] 
set ny [expr <<$y - $ly)/2) + $ly] 
10 lappend sectors [list $nx $ny] 

set lx $x ; set ly $y 

} 

} 

15 

#puts " ptr sectors = $sectors" 
set n 0 

foreach {pt} $sectors { 

set x [ 1 index $pt 0) 
20 set y [lindex $pt 1) 

set xl [expr $x -3] 

set x2 (expr $x +3] 

set yl [expr $y -3] 

set y2 [expr $y +3) 
25 set midx [expr roundt ($x2 + $xl) / 2 )] 

$canvas create poly $midx $yl $x2 $y2 $xl $y2 -fill yellow -outline black -width 1 -tags 
[list handle ptrsect num$ptnum sx$n ) 

incr n 

} 

30 ) 



proc iat : : ant : : ant_draw__segments { ns } { 

#puts ■ iat : : ant : : ant_draw_segments : $ns ■ 



35 variable points 

variable kind 
variable heads 
variable tails 

40 upvar #0 [join (list [namespace current) $ns canvas) ::] canvas 

$ canvas delete segment 

set tmps [join $ points] 
45 if {$kind == •edge") { 

if { [llength $tmps] < 4} { return > 

$ canvas create line $tmps -width 2 -fill red -tags [list segment] 
} elseif {$kind == "area") { 

if {[llength $tmps] < 6} { return } 
50 $canvas create poly $tmps -width 2 -fill -outline red -tags [list segment) 



55 proc iat: :ant: : ant_draw__ver texs { ns } { 

#puts * iat : : ant : : ant_draw_vertexs : $ns ■ 

variable points 

60 upvar #0 [join [list [namespace current) $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns select jnode] ::] selectjnode 

$canvas delete vertex 

65 set shape rect 

if ($select_mode == "edit - } { set shape oval ) 

set n 0 

foreach pt $points { 
70 set x [lindex $pt 0] 

set y [lindex $pt 1] 

set xl [expr $x -3] 

set x2 [expr $x +3) 

set yl [expr $y -3] 
75 set y2 [expr $y +3] 

$canvas create $shape $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags {list handle 

vertex num$n] 

dncr n 

) 

80 

#$canvas itemconf igure HANDLE -fill red -outline black 
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) 

proc iat : : ant : : ant_draw_ptr_ver texOLD { ns ptnuro > { 

5 variable verts 

foreach {key value) [array get verts] { 
if {$value == ■ " } { continue ) 
ant_draw_ptr_vertex $ns $key 

10 > 
) 

proc iat : rant: :ant_draw_jptr_vertexs { ns ptnum } ( 
variable TRACE 

15 if {$ TRACE) { puts "iat: :ant: :ant_draw_ptr_vertexs : $ns $ptnum" ) 

variable verts 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
20 upvar #0 [join [list [namespace current] $ns select_jnode] ::] select_mode 

set shape rect 

if {$select_mode == "edit") { set shape oval ) 

25 set n 0 

foreach {pt) $verts ( $ptnum) { 

set x [lindex $pt 0] 
set y [lindex $pt 1] 
set xl [expr $x -3] 
30 set x2 [expr $x +3} 

set yl [expr $y -3) 
set y2 [expr $y +3] 

$canvas create $shape $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle 
ptrvert num$ptnum vx$n] 
35 incr n 

) 

) 

40 proc iat: :ant: : drawSymbolHandle {) { 
variable TRACE 

if {$TRACE)' { puts "iat: rant: :ant_vertexs_drawr $ns" ) 
variable points 

45 

set pt $symbolPoint 
set x [lindex $pt 0] 
set y [lindex $pt 1] 
set xl [expr $x -3] 
50 set x2 [expr $x +3] 

set yl (expr $y -3] 
set y2 [expr $y +3] 

$canvas create rect $xl $yl $x2 $y2 -fill yellow -outline black -width 1 -tags [list handle symbol] 

) 

55 

proc iat : : ant : : ant_vertexs__add { ns pts ) { 
variable TRACE 

if { $ TRACE) { puts 8 iat : : ant : : ant_vertexs_add : $pts ■ ) 

60 foreach pt $pts { 

ant_vertex_add $ns $pt 

) 

) 

65 

proc iat: :ant: :ant_vertex_add { ns pt } { 
variable TRACE 

if {$TRACE) { puts "iat: rant: r ant_vertex_add : $ns $pt* ) 

70 variable points 

lappend points $pt 

#puts " points = $points" 

75 ) 

proc iat: rant: r ant_inser t_vertex { ns idx newpt ) { 
variable TRACE 

if ($TRACE) ( puts "iat: :ant: :ant_insert_vertex: $ns $idx $newpt" ) 

80 

variable kind 
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variable points 
variable heads 
variable verts 
variable tails 

5 

if {$idx > [llength $points)} { 
lappend points $newpt 

} else { 

set points Ilinsert $points $idx $newpt] 

10 ) 

#puts " points = $points" 

# pinned pointers must be readjusted — 
set hpts [array names heads] 
15 set hpts tlsort -integer $hpts) 

for {set i [expr $idx+l]} {$i>=0} {incr i -1} { 
set hpt (lindex $hpts $il 
if {$idx <= $hpt) { 

ant__move_ptr_head $ns $hpt [expr $hpt+l] 

20 ) 
) 

ant_save $ns 

25 } 

proc iat : : ant : : ant_move_vertex { ns idx newpt > { 
variable TRACE 

if { $ TRACE } { puts "iat: :ant: :ant_move_vertex: $ns $idx $newpf } 

30 

variable points 

set points (lreplace $points $idx $idx $neypt) 
ant_save $ns 

35 

} 

proc iat : x ant : : ant_delete__vertex { ns idx } { 
variable TRACE 

40 if {$TRACE} { puts ■ iat : :ant : :ant_delete_vertex: $ns $idx" } 

variable kind 
variable points 
variable heads 
45 variable verts 
variable tails 

# Don't delete beyond minimum points — 
if {$kind "area"} { 
50 if Ullength $points] == 3} { return } 

) elseif {$kind -edge") { 

if {[llength $points] == 2} { return } 

if {[llength $points] == 1) { return } 

55 ) 

set points [lreplace $points $idx $idx] 

# pinned pointers must be readjusted. . . 
60 set hpts [array names heads) 

set hpts [Isort -integer $hpts] 
foreach hpt $hpts { 

if {$hpt > $idx) { 

ant_move_ptr_head $ns $hpt [expr $bpt-l] 

65 } 
} 

ant_save $ns 

70 ) 

proc iat: rant: :ant_delete_pointer { ns ptnuxn ) { 
variable TRACE 

if {$TRACE) { puts "iat: :ant: :ant_delete_pointer: $ptnum- } 

75 

variable points 

variable heads 

variable verts 
variable tails 
80 variable dPTRs 
variable dSYMs 
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set heads ($ptnum) ■■ 
set verts ( $ptnum) 

set tails ($ptnum) 

set dPTRs ($ptnum) 

set dSYMs{$ptnum) 
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ant_save $ns 



} 

proc iat : : ant : : ant _jnove_ptr.Jiead { ns idx newidx ) { 
variable TRACE 

if ($TRACE) { puts "iat: :ant : -.antjaove^ptr^head: $ns $idx $newidx" } 

variable points 
variable heads 
variable verts 
variable tails 
variable dSYMs 
20 variable dPTRs 



10 



15 



25 



30 



35 



40 



45 



if {$newidx == "auto") { 

set heads ($idx) "auto" 

ant_save $ns 

return 



} 



if {![info exists heads ($idx) ] ) { return -3 } 
if ($heads($idx) ==»«}{ return -3 } 
if {$idx == $newidx} { return -1 ) 

if {$heads($idx) == -auto") { set heads($idx) $idx > 

#puts "heads (idx) = $heads ($idx) " 
#puts "tails(idx) = $tails ($idx) • 

set heads <$newidx) $newidx 

set tails ($newidx) $tails($idx) 
set verts ($newidx) $verts($idx) 
set dSYMs($newidx) $dSYMs <$idx) 
set dPTRs ( $newidx ) $dPTRs($idx) 

set heads ($idx) 
set tails <$idx) 
set dSYMs($idx) 
set dPTRs($idx) 

array set verts [list] 



50 



> 



ant_save $ns 
return $newidx 



55 



proc iat: :ant: :ant_move_ptr_vert { ns ptnum vertn newpt } { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: :ant_move_jptr_vert: $ns $ptnum $vertn $newpt" } 
variable verts 



60 



65 



} 



set vs $verts($ptnum) 

set vs Clreplace $vs $vertn $vertn $newpt} 
set verts ( $ptnum) $vs 

ant_save $ns 



proc iat: :ant: :ant_jnove_ptr_tail { ns idx newpt ) { 
variable TRACE 

if { $TRACE> { puts °iat: :ant: :ant_piove_ptr_tail: $ns $idx $newpt" ) 

70 variable verts 

variable tails 



75 



set x [lindex $tails($idx) 0] 

set y [lindex $tails($idx) 1] 

set dx (expr [lindex $newpt 0] - $x] 

set dy [expr [lindex $newpt 1] - $yl 

set verts ($idx) [ point s_trans late $dx $dy $verts ($idx) J 



80 



set tails ($idx) $newpt 
ant_save $ns 
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* ) 

proc iat: :ant : :ant_insert_ptrvert { ns ptnum vertn newpt ) { 
variable TRACE 

5 if {$TRACE} { puts " iat : : ant : : ant_inser t_ptrvert : $ns $ptnum $vertn $newpf } 
variable verts 
set vs $verts ( $ptnum) 

10 

if {$vertn >= [1 length $vs] } { 
lappend vs $newpt 

} else { 

set vs [linsert $vs $vertn $newpt] 

15 ) 

set verts ($ptnum) $vs 



20 



#puts " points = $points" 
ant_save $ns 



} 



proc iat : : ant : : ant_delete_ptrvert { ns ptnum vertn } { 
variable TRACE 

25 if {$TRACE} { puts ■ iat : : ant : : ant_delete_ptrvert : $ptnum $vertn" } 

variable verts 

set vs $verts ($ptnum) 
30 set vs fireplace $vs $vertn $vertn] 

set verts ( $ptnum) $vs 



ant_save $ns 



35 ) 



proc iat : :ant : : roiSynbolMove { fromPt toPt ) { 
#puts "roiSymbolMove* 
variable canvas 
40 variable symbolDirty 
variable symbolPoint 

$canvas delete symbol 
set symbolPoint $toPt 
45 set symbolDirty 1 



50 } 



roiSave 
return 0 



proc iat: ;ant : : roiReadAllXML { raw > { 
variable channels 
if {$raw == ■■) { 
55 if {$channels !» { 

incr channels 

if {$channels > 90) { set channels 65 ) 

> 

return 

60 } 

if {$channels == *■} { 
roiDeleteAll 

iat : : ant : :xml : : roiReadAll $raw 
} else { 
65 set num $channels 

set char [format %c $num] 

set channels " $char : " 

iat :: ant: zxmXi : roiReadAll $raw 

set channels $num 
70 incr channels 

if {$channels > 90} (set channels 65} 

> 

> 

75 proc iat: :ant: :noop { args } { 
#puts "NOOP: $args" 

} 



80 proc iat: :ant: rroiViewSet { nv } ( 
#variable view 
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switch — exact $nv { 
-none - { 

set view "none* 

) 

5 default { 

set view "all" 

} 

} 

} 

10 

proc iat : : ant : : ant__dump { ns lvl } { 

puts " iat : : ant : : ant_dump : $ns ■ , 

set str [ ant_make_all $ns $lvl] 
15 puts $str 

} 

proc iat: :ant: :ant__dump_svg { ns lvl } { 
2 0 puts ■ iat : : ant : : ant__dump_svg : $ns " 

set str [ ant_make__svg_al 1 $ns $lvl] 
puts $str 

25 ) 

proc iat: :ant: : ant_dump_keys { ns } ( 
puts • iat : : ant : : ant_dump.Jceys : $ns ■ 

30 upvar #0 [join (list {namespace current) $ns orders] ::] orders 

set lstl [list] 
set lst2 (list) 

foreach {key value) [array get orders] { 
35 lappend lstl $key 

lappend 1st 2 $ value 
puts "key $key = $value" 

) 

#set 1st Clsort -dictionary $lst] 



#puts "keys = $lst" 



40 
} 

45 

if {0} { 
> 

iat ,app. txt 
50 package require BWidget 
package require Img 
package require base64 
#package require tkdnd 



55 



60 



namespace eval iat { 

font create font Small -family helvetica -size 16 
font create fontDefault -family helvetica -size 16 
font create fontI*arge -family helvetica -size 16 

# for cut /copy /paste 
variable tmp_ ant_copy 



) 

65 

source iat . icons . tcl 
source iat . canvas . tcl 
source iat . thumbs . tcl 
source iat. ant. tcl 
70 source iat.tex.tcl 

namespace eval iat:: dialog { 

variable TRACE 0 ' 

variable ref_list [list NONE] 
75 variable ref_combo ■ " 

variable ref__name "NONE" 

variable ref_file "" 

variable ref_tree ■ * 

variable ref_code 
80 variable ref_symbol 

variable ref_label "" 
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variable grp_tree 

> 

source iat . dialog . groups . tcl 
5 source iat .dialog. borders. tcl 
source iat .dialog. dataref. tcl 
source iat . dialog . doc . tcl 
source iat .var . js4svg. tcl 
source iat .var. todo. tcl 
10 source iat .var . splash. tcl 

namespace eval iat: :app { 

variable TRACE 0 

variable DEMOl 0 
15 variable BATIK 0 # must also turn menu off in js4svg.js 

variable SQRIMG 0 

variable SERVER 0 

variable SERVER_ONCE 0 

variable SERVER_STATE WAIT 
20 variable id 0 

variable version "0.8.4" 

variable rsrc_url 8 ■ 

variable init_url ■/■ 

variable use_javascript_f ile 1 

25 } 

# This starts the tcl httpd server... 
if {$: :iat: :app: : SERVER) { 

set : : iat : : app : : SERVER^ STATE WAIT 
30 set : : iat : : app : : SERVER_DRL 

source . /tclhttpd/bin/httpd. tcl 

) 

proc iat :: app: : proc { ns cmd args > { 
35 variable TRACE 

if { $TRACE) { puts "iat: : app: : proc: $ns $cmd $args" } 

upvar #0 [join [list [namespace current] $ns window] ::] window 

40 switch $cmd { 

•configure" { 

foreach {key value) $args { 
switch — $key { 

"-url" { url_open_url $ns $ value ) 
45 "-resources" { url_set_resources $ns $value ) 

"-init_url° { url_set_init_url $ns $value ) 
•-scale" { set_scale $ns $value ) 

) 

) 

50 ) 

•cget" { 

switch — [1 index $args 0] { 

■-window" { return $window ) 

> 

55 ) 

•dump" { 

[namespace current] : : dump $ns 

) 

default { 
60 ) 



return {) 

) 

65 

proc iat: : app: : create < path ) { 
variable id 
variable DEMOl 
variable version 
70 variable SERVER 

variable SERVER_STATE 

if {$path == •.") { set path 
set wid [incr id] 
75 set wid •iat$wid» 

# splash screen . . . 
wm iconify . 
if {$DEMOD { 
80 app_splash $wid 

) 
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toplevel $path.$wid -borderwidth 2 
wm minsize $path.$wid 400 400 
wfli geometry $path.$wid 600x400 
5 wm title $path.$wid ■ IAT v$version h 

set path $path.$wid 

#puts "path = $path* 



10 set ns [namespace current] :: $wid 

namespace eval $ns { 

variable window " * 

variable splash 1 

variable svg_pkg 0 
15 variable open_url ■/■ 

variable image__url n ■ 

variable antsjurl ■" 

variable image^f rame " ■ 

variable image_canvas 
20 variable i m age_scale 100 

variable toolbar_state_url 1 

variable toolbar__state_edit 1 

variable toolbar_state_view 1 

,variable toolbar__state_symlbl 1 
25 variable toolbar__state_cs 1 

variable toolbar_state_cap 1 

variable status_label " * 

variable entry_url " ■ 

variable entry_view " ■ 
30 variable entry_inview 

variable entry_code ■ * 

variable entry_symbol "" 

variable entry_label ■ ■ 

variable entry__caption ■ ■ 
35 variable en t ry_c s_c lass " " 

variable en try_cs_ tumor * " 

variable en t ry„c s_node 

variable entry_cs_metastasis ■ • 

variable entry_cs_note " " 

40 } 

set cmd -proc [namespace current] : :$wid { cmd args } {eval [namespace current] : .-proc $wid \$cmd 

\$args>* 

namespace eval : : $cmd 

45 upvar SO [join [list $ns window] ::] window 
set window $path 

upvar #0 [join [list $ns image_frame] ::] image_frame 

upvar #0 [join [list $ns image_canvas] : : ] image_canvas 
50 upvar #0 [join [list $ns status_label] ::] status_label 

upvar *0 (join [list $ns entry_ url] ::] entry__url 
upvar #0 [join [list $ns entry_view] ::] entry__view 
upvar 00 [join [list $ns entry_inview] ::] entry__inview 
upvar to [join [list $ns entry_codeJ ::] entry__code 
55 upvar fO [join [list $ns entry_symbol] ::] entry_symbol 

upvar #0 [join [list $ns entry_label] ::] entry_label 
upvar 10 [join [list $ns entry_caption] ::] entry_caption 

upvar #0 [join (list $ns entry_cs_class] ::] entry_cs_class 

60 upvar #0 [join [list $ns entry_cs_tumor] ::] entry_cs_tumor 

upvar #0 (join [list $ns entry_cs_node] ::] entry_cs_node 

upvar #0 [join [list $ns entry_csjnetastasis] ::] entry_cs_metastasis 

upvar #0 [join [list $ns entry_cs_note] ::] entry_cs_note 

65 menu $path.menubar -type menubar 

$path. menubar add cascade -label File -menu $path. menubar. file -underline 0 
$path. menubar add cascade -label Edit -menu $path. menubar. edit -underline 0 
$ path, menubar add cascade -label View -menu $path. menubar .view -underline 0 
$path. menubar add cascade -label Settings -menu $path. menubar .settings -underline 0 

70 $path. menubar add cascade -label Help -menu $path. menubar .help -underline 0 
if {!$DEMOD { 

$path .menubar add cascade -label Debug -menu $pa th .menubar .debug -underline 0 

> 

75 # export menu 

menu $path. menubar .export -tearoff 0 

$pa th . menubar . export add command -label "SVG Package" -underline 0 \ 

-command " iat : : app : : app__export__svgpkg $wid" 
$path. menubar .export add command -label "Image" -underline 0 \ 
8 0 -command " ia t s : app : : app_export_iroage $wid " 

$path. menubar. export add command .-label "Postscript" -underline 0 \ 
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-command "iat: :app: :app_export_ps $wid- 
$path. menubar, export add command -label -HTML: Default Wrapper- -underline 0 \ 

-command "iat :: app: :app_export_html_de fault $wid" 
$path. menubar. export add command -label "HTML: Quiz Wrapper- -underline 0 \ 
5 -command ■ ia t : : app : : app_expor t_html_qui z $wid ■ 

#end export menu 

#file menu 

menu $pa th. menubar . file -tearoff 0 
10 $path.menubar.file add command -label •New- -underline 0 \ 

-command * iat : : app : : app_new ■ 

$path. menubar. file add command -label -Open Image" -underline 0 \ 

-command - iat : : app : : url_open $ wid - 
$path. menubar. file add command -label "Open Folder- -underline 0 \ 
" -command - iat : : app : : f older__open $wid" 

$path .menubar .file add command -label -Save" -underline 0 \ 

-command -iat: :app: :url_save $wid" 

$path. menubar. file add command -label "Save As...- -underline 5 \ 
-command * iat : : app : : ur l_save_as $wid" 
20 $path. menubar. file add separator 

$path.menubar. file add cascade -label "Export..." -menu $path. menubar .export -underline 0 
$path. menubar. file add separator we u 

$path. menubar. file add command -label "Close Image" -underline 1 \ 
-command " iat : : app : : app_close_iraage $wid" 
25 $path. menubar. file add command -label "Close Window" -underline 1 \ 

-command " iat : : app : : app__close_window $wid " 
$path. menubar .f ile add separator 

$path. menubar. file add command -label "Quit" -underline 1 \ 
-command "exit" 
30 #end file menu 

# edit menu 

menu $path. menubar .edit -tearoff 1 

$path. menubar. edit add command -label "Create Area" -underline 0 \ 
3 5 -command " iat : : app : : edit_create $wid area " 

$path. menubar. edit add command -label "Create Edge" -underline 0 \ 
-command • iat : : app ; : edit_create $wid edge" 

$path. menubar. edit add command -label "Create Point" -underline 0 \ 

-command * iat : : app : : edit_create $wid point" 
40 $path. menubar. edit add separator 

$path. menubar. edit add command -label "Groups" -underline 0 \ 

-command ■ ia t : : app : : dialog_groups $wid " 
$path. menubar. edit add separator 

$path. menubar. edit add command -label "Edit Borders- -underline 0 \ 
45 -command " iat : : app : : dialogjborders $wid" 

# end edit menu 

# view menu 

set image_scale_var [join [list iat:: app $wid image_scale] ::] 
50 menu $path. menubar .view -tearoff 1 

$path. menubar. view add radio -label "25%" -underline 0 \ 
-variable $ imagers cale_var -value 25 \ 
-command • ia t : : app : : scale_image $wid " 
$path.menubar.view add radio -label "50%" -underline 0 \ 
-variable $ imagers cale_var -value 50 \ 
-command " iat : : app : : scale__image $wid " 
$path. menubar. view add radio -label "100%" -underline 0 \ 
-variable $image_scale_var -value 100 \ 
-command "iat:: app : : scale_image $wid * 
$path .menubar . view add radio -label "200%" -underline 0 \ 
-variable $image_scale_var -value 200 \ 
-command " iat : : app : : scale_image $wid ■ 
$path. menubar. view add radio -label "400%" -underline 0 \ 
-variable $ image_s ca 1 e_var -value 400 \ 
65 -command " iat : : app : : scale_image $wid" 

# end view menu 

# settings menu 

#puts °state__var = $state_var" 
70 menu $path. menubar. settings -tearoff 1 

# url toolbar 

set state_var [join [list iat::app $wid toolbar_state__url ] ::] 
$path. menubar. settings add check -label "Show URL" -underline 0 \ 
-variable $state_var \ 

75 j, _ u -command "iat: :app: : toggle_toolbar $wid $path tb.url {urll urle) $state var" 

* eoit toolbar 

set state^var [join [list iat:: app $wid toolbar_state_edit] .•:] 
$path. menubar. set tings add check -label "Show Edit" -underline 0 \ 
-variable $state__var \ 

80 «^ ^ -command "iat : :app : : toggle_toolbar $wid $path tb^edit { selectl select2 blankl new ooint 

new__edge new_area blank2 pointerl pointer2 ptrsty ptrpin ptrsym blank3 color move delete bla^lT 



55 



60 
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* $state_var" 

# view toolbar 

set state_var [join [list iat: :app $wid toolbars tat e_view] 
$path. menubar. settings add check -label "Show View" -underline 0 \ 
5 -variable $state_var \ 

-command "iat : :app: : toggle_toolbar $wid $path tb_vw { vwl vwe invwl invwe} $state__var" 

# code & symbol & label toolbar 

set state__var [join [list iat: :app $wid toolbars tate_symlbl] ::] 
$path, menubar. set tings add check -label -Show FCAT" -underline 0 \ 
10 -variable $state_var \ 

-command " iat : : app : : toggle_toolbar $wid $path tb_sl { fcatl codl code syrol syme Ibll lble codb) 

$state_var" 

# TNM Cancer Staging shorthand 

set state_var (join [list iat: : app $wid toolbar_state_cs J ::] 
15 $path.menubar. settings add check -label "Show TNM" -underline 0 \ 

-variable $state_var \ 

-command " iat : : app : : toggle_toolbar $wid $path tb_cs { tnml classl classe tl te nl ne ml me notel 
notee) $state_var" 

# caption toolbar 

20 set state__var [join [list iat: : app $wid toolbar_state_cap] 

$path. menubar. settings add check -label "Show Caption* -underline 0 \ 
-variable $state__var \ 

-command "iat: :app: :toggle__toolbar $wid $path tb_cap {capl cape} $state„var • 

# end settings menu 

25 

# help menu 

menu $path. menubar .help -tearoff 0 

$path.menubar .help add command -label "About..." -underline 0 \ 
-command " iat : : app : : help_about $wid" 
30 $path. menubar .help add command -label "To Do" -underline 0 \ 

-command " iat : : app : : help_todo $wid" 

# end help menu 

# debug menu 
35 if {i$DEM01> { 

menu $path.menubar .debug -tearoff 1 

$path .menubar . debug add command -label "Console" -underline 0 \ 

-command ■ iat : : app : : show_console $wid " 
$path •menubar .debug add command -label "Dump Ants" -underline 0 \ 
4 0 -command " iat : : app : : dump_ants $wid" 

$path .menubar . debug add command -label "Dump SVG" -underline 0 \ 

-command " iat : : app : : dump_svg $wid" 
$path. menubar. debug add command -label "Dump Keys" -underline 0 \ 

-command ■ iat : : app : : dump_keys $wid " 

45 ) 

# end debug menu 



50 



$path configure -menu $ path .menubar 



# URL toolbar 

set url_tb [frame $path . tb_url -relief solid -bd 1] 

#puts "url_tb = $ur l_tb ■ 
label $url_tb.urll -text "URL: " 
55 pack $url_tb.urll -side left 
Entry $url_tb.urle -width 60 

pack $url_tb.urle -side left -pady 2 -fill x -expand 1 

$url_tb.urle configure -command " iat : : app : : ur l_enter $wid 8 
set entry_url $url__tb.urle 
60 # linux 

#dnd bindtarget $url_tb.e text /plain <Drop> " iat : : app : : url_drop $wid %A %a %T %W %D« 1 

# windows 

# dnd bindtarget $url_tb.e Piles <Drop> "iat: :app: :url_drop $wid %A %a %T %W %D" 1 

# dnd bindsource $url_tb.e CF_HDROF { return [pwd] ) 
65 pack $url_tb -side top -anchor nw -fill x -expand 0 

# edit toolbar 

set edit_tb [frame $path. tb_edit -relief solid -bd 1) 
set tmp [button $edit__tb. select 1 \ 
70 -image [image create photo -data $iat: : icons :: Select Solid] \ 

-command *iat: :app: ;edit_select $wid annotation" J 
pack $tmp -side left 
set tmp [button $edit_tb- select 2 \ 

-image [image create photo -data $iat: .-icons: .-SelectHollowJ \ 
75 -command "iat : :app: :edit_select $wid edit" ] 

pack $tmp -side left 
set tmp [button $edit_tb . blankl \ 

-image [image create photo -data $iat: : icons :: Blank) \ 
-relief flat \ 
80 -command ■ " J 

pack $tmp -side left 
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set trap [button $edit__tb.new_jpoint \ 

-image [image create photo -data $iat :: icons: : Point] \ 
-command "iat : :app: :edit_create $wid point" ] 
pack $tmp -side left 
set tmp [button $edit_tb.new_edge \ 

-image (image create photo -data $iat: : icons :: Line] \ 
-command " iat : : app : : edit_create $wid edge ■ ] 
pack $tmp -side left 
set tmp [button $edit_tb.new_area \ 

-image [image create photo -data $iat: : icons :: Polygon] \ 
-command " iat : : app : : edit_create $wid area" ] 
pack $tmp -side left 
#set tmp [button $edit_tb . new_rec tangle \ 

# -image [image create photo -data $iat: : icons: .-Fullscreen) 

# -command " ■ ] 

# pack $tmp -side left 

#set tmp [button $edit_tb.new_circle \ 

# -image [image create photo -data $ iat :: icons :: Circle] \ 

# -command " " ] 

# pack $tmp -side left 

set tmp [button $edit__tb.blank2 \ 

-image [image create photo -data $iat :: icons :: Blank] \ 
-relief flat \ 
-command ■ ■ ] 
pack $tmp -side left 
set tmp [button $edit_tb. pointer 1 \ 

-image [image create photo -data $ iat :: icons : : Pointer Single] \ 
-command "iat : :app: :edit_create_jpointer $wid single" ] 
pack $tmp -side left 
set tmp [button $edit_tb . pointer 2 \ 

-image [image create photo -data $iat: : icons : : Point erMultiple) \ 
-command "iat: :app: :edit_create_pointer $wid multiple" ] 
pack $tmp -side left 
set tmp [button $edit_tb.ptrsty \ 

-image [image create photo -data $iat icons :: PointerHead] \ 
-command "iat :: app: :edit_p trusty le $wid" ] 
pack $tmp -side left 
set tmp [button $edit_tb - ptrpin \ 

-image [image create photo -data $ iat :: icons :: Pin] \ 
-command ■ iat : : app : : edit_ptr_pin $wid" ] 
pack $tmp -side left 
set tmp [button $edit_tb.ptrsym \ 

-image [image create photo -data $ iat :: icons :: Symbol] \ 
-command -iat : :app: :edit_ptr_symbol $wid" ] 
pack $tmp -side left 

set tmp [button $ edi t_tb . blank3 \ 

-image [image create photo -data $ iat :: icons t : Blank] \ 
-relief flat \ 
-command ■ ■ ) 
pack Stmp -side left 
set tmp [button $edit_tb. color \ 

-image [image create photo -data $iat: : icons :: Color] \ 
-command " ia t : : app : : edi t_an t_color $wid • ] 
pack $tmp -side left 
set tmp [button $edit_tb.move \ 

-image (image create photo -data $iat : : icons Move) \ 
-command • iat : : app : : edit_move $wid" ] 
pack $tmp -side left 

#set tmp (button $edit_tb.copy \ 

-image [image create photo -data $iat: : icons :: Copy) \ 
-command "iat : :app: :edit_ant_copy $wid" ] 
pack $tmp -side left 
Iset tmp [button $ edi t_tb. paste \ 

-image [image create photo -data $iat :: icons ;: Blank] \ 
-command ■ iat : : app : : edi t_ant_paste $w±d " ) 
pack $tmp -side left 
set tmp [button $edit_tb. delete \ 

-image [image create photo -data $iat: : icons :: Cut] \ 
-command "iat: :app: : edit_ant_cut $wid» ] 
pack $tmp -side left 
set tmp (button $edit_tb.blank4 \ 

-image [image create photo -data $iat :: icons :: Blank] \ 
-relief flat \ 
-command J 
pack $tmp -side left 
pack $edit_tb -side top -anchor nw -fill x -expand 0 

# view toolbar 

set vw_tb [frame $path . tb_vw -relief solid -bd 1] 

#puts "sl_tb = $sl_tb" 

label $ vw_tb . vwl -text "VIEW: " 
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pack $vw_tb.vwl -side left 

ComboBox $ vw_tb . vwe -width 12 -values [list ALL NONE] -modifycmd "iat: .-app; :edit_set_view $wid" 
set entry_view $vw_tb.vwe 
$entry_view setvalue first 

pack $ vw_tb . vwe -side left -fill x -expand 0 
#set tmp [button $vw__tb.vwb \ 

# -image [image create photo -data $ iat :: icons :: Code] \ 

# -command ■ iat : :app: :edit_update_view $wid" ] 
#pack $vw_tb.vwb -side left -padx 4 

label $vw„tb . invwl -text " IN VIEWS:" 
pack $vw_tb.invwl -side left 

Entry $ vw__tb . invwe -width 48 -command "iat : : app: :edit_set_inview $wid" 
set entry_inview $vw_tb. invwe 

pack $ vw__tb . invwe -side left -fill x -expand 0 -pady 4 
pack $vw_tb -side top -anchor nw -fill x -expand 0 



# code & symbol & label toolbar 

set sl__tb [frame $path.tb_sl -relief solid -bd 1] 
#puts "sl_tb = $sl_tb" 
label $sl_tb.fcatl -text "FCAT" 
pack $sl_tb.fcatl -side left 
label $sl_tb.codl -text "CODE: " 
pack $sl_tb.codl -side left 

Entry $sl_tb . code -width 14 -command " iat : : app : : edit_set_code $wid" 
set entry_code $sl_tb.code 

pack $sl_tb.code -side left -fill x -expand 0 
label $sl_tb.syml -text "SYMBOL:" 
pack $sl„tb. syml -side left 

Entry $sl_tb.syme -width 8 -command "iat : :app: : edit_set_symbol $wid" 
set en try — symbol $sl_tb.syme 

pack $sl_tb.syme -side left -fill x -expand 0 

label $sl_tb.lbll -text "LABEL: " 

pack $sl_tb.lbll -side left 

Entry $sl_tb.lble -width 32 -command "iat: :app: :edit_set_label $wid" 
set entry_label $sl_tb.lble 

pack $sl_tb. lble -side left -pady 2 -fill x -expand 0 
set tmp [button $sl_tb.codb \ 

-image [image create photo -data $ iat :: icons :: Code] \ 

-command "iat : :app: : edit_ant_data $wid" ] 
pack $sl_tb.codb -side left -padx 4 
pack $sl_tb -side top -anchor nw -fill x -expand 0 



# TNM Cancer Staging shorthand 

set cs_tb (frame $path.tb__cs -relief solid -bd 1] 

#puts "sl_tb = $sl_tb" 

label $cs_tb. tnml -text "TNM" 

pack $cs_tb.tnml -side left -pady 2 

label $cs_tb.classl -text "STAGE:" 

pack $cs__tb.classl -side left 

Entry $cs_tb . class e -width 4 -command "iat : :app: :edit_set_cs_class $wid" 

set entry__cs_class $cs_tb . classe 

pack $cs_tb . classe -side left -fill x -expand 0 

label $cs_tb.tl -text "T" 

pack $cs_tb.tl -side left 

Entry $cs_tb.te -width 4 -command "iat: :app: :edit_set_ cs_tumor $wid" 

set en try_cs__ tumor $cs_tb.te 

pack $cs_tb.te -side left -fill x -expand 0 

label $cs_tb.nl -text "N" 

pack $cs_tb.nl -side left 

Entry $cs_tb.ne -width 4 -command "iat : :app: :edit__set_ cs_node $wid" 

set entry_cs_node $cs^.tb.ne 

pack $cs_tb.ne -side left -fill x -expand 0 

label $cs_tb.ml -text "M" 

pack $cs_tb.ml -side left 

Entry $cs_tb.me -width 4 -command "iat: :app: :edit_set_cs_metastasis $wid" 

set entry_cs_metastasis $cs__tb.me 

pack $cs__tb.me -side left -fill x -expand 0 

pack $cs_tb -side top -anchor nw -fill x -expand 0 

label $cs_tb.notel -text "NOTE" 

pack $cs_tb.notel -side left 

Entry $cs_tb.notee -width 42 -command "iat : :app: :edit_set_cs_note $wid 0 

set entry_cs_note $cs_tb.notee 

pack $cs_tb.notee -side left -fill x -expand 0 

pack $cs_tb -side top -anchor nw -fill x -expand 0 

# caption toolbar 

set cap_tb (frame $path. tb__cap -relief solid -bd 1] 

#puts "sl_tb = $sl_tb" 

label $cap_tb.capl -text "CAPTION: " 
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pack $cap_tb.capl -side left -padx 2 -pady 2 
text $cap_tb.cape -width 72 -height 2 
set entry_caption $cap_tb.cape 

pack $cap_tb.cape -side left -pady 2 -fill x -expand 0 
5 pack $cap_tb -side top -anchor nw -fill x -expand 0 

set f [frame $path.f -relief solid -bd 1] 

pack $f -side top -anchor nw -fill both -expand 1 

10 set f [frame $path.f.f -relief solid -bd 1] 

pack $f -side top -anchor nw -fill both -expand 1 

set image_frame $f 

#puts ■ image_f rame = $image_f rame" 

15 set c fiat: : canvas :: create $f] 

set image_canvas $c 

# help bar 

label $path.help -text "Ready-*; pack $path.help -side left 
20 set status_label $path.help 

$image_canvas configure -callbackselect " [namespace current] : : handle_ant_select $wid" 

$image_canvas configure -callbackdeselect -[namespace current] : :handle__ant_deselect $wid a 
$image_canvas configure -status $ status label 

25 

#$image_canyas configure -callbackserver "[namespace current] : :url_save__server $wid" 
if {$SERVBR} { 

$image_canvas configure -callbackserver " [namespace current] : :url_save_server $wid" 

30 set fh [open ». /tclhttpd/htdocs /index. htm" w] 

puts $fh "<html>\n" 
puts $fh "<head>\n" 

puts $fh "<title>IAT SERVER</title>\n" 

puts $fh "<meta http-equiv= \ - REFRESH \ " content=\ n 5 ;URL=index.htm\">\n" 
35 puts $fh "</head>\n" 

puts $fh "<body>\n" 

puts $fh "IAT server waiting for session...* 
puts $fh "</body>\n" 
puts $fh "</html>\n" 
40 close $fh 

> 

return [join [list [namespace current] $wid] ::] 

} 

45 

proc iat : : app : : app_jiew { } ( 
return [create . ] 

) 

50 proc iat: :app: :app_close_image { ns > { 
variable TRACE 

if {$TRACE} { puts "iat:: app: : app_close_image : $ns- } 

variable SERVER 
55 variable SERVER.. STATE 

upvar #0 (join [list [namespace current] $ns image_canvas] ::] image_canvas 
upvar #0 [join (list [namespace current] $ns image_url] ::] image_url 
upvar #0 [join [list [namespace current] $ns ants„url] :: ] ants_url 
upvar #0 [join (list (namespace current] $ns entry_url] ::] entry_url 

60 

set SERVER__STATE WAIT 
if {$ SERVER} { 

set fh [open /tclhttpd/htdocs /index. htm" w] 

puts $fh "<html>\n" 
65 puts $fh "<head>\n" 

puts $fh "<title>IAT SERVER</title>\n" 

puts $fh "</head>\n" 

puts $fh "<body>\n" 

puts $fh "IAT server session closed..." 
70 puts $fh »</body>\n" 

puts $fh "</html>\n" 
close $fh 

> 

75 $ image_canvas close 

set image_url "" 
set ants_url "• 
$entry_url delete 0 end 

80 ) 
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proc iat : : app : : app_close_window { ns } { 
variable TRACE 

if {$TRACE} { puts "iat : :app: :app_caose_window: $ns" } 
apP_close_image $ns 
5 destroy .$ns 

1 

proc iat : : app : : ur l_.se t_resources { ns url } { 
variable TRACE 

10 if ($TRACE) { puts "iat: :app: :url_set__resources: $ns $url" } 

variable rsrc_url 
set rsrc_url $url 

) 

15 

proc iat: :app: :url_set_init_url { ns url } { 
variable TRACE 

if {$TRACE) { puts "iat: :app: : url_set_init_url : $ns $url" ) 

20 variable init_url 

set init_url $url 

) 

proc iat : :app: :url__enter { ns } { 
25 variable TRACE 

if {$TRACE} { puts "iat: :app: :url_enter: $ns« } 

upvar #0 [join [list [namespace current] $ns entry__url] ::] entry_url 

30 set url [$entry__url get] 

url_open_url $ns $url 

} 

35 proc iat : :app: :url_drop { ns action actions type widget data } { 

puts "iat: :app: :drop_url: $ns $action $actions $type \"$dataV 

if {[string match text/* $type3 } { 
set url [string trim $data] 
40 $widget delete 0 end 

$widget insert 0 $url 
url_open__url $ns $url 
} else { 

45 } 
} 

proc iat.- :app: :url_open { ns ) { 
variable TRACE 
50 if { $ TRACE) { puts "iat: :app: :url_open: $ns" } 

variable SERVER 
variable init_url 

upvar #0 [join [list [namespace current) $ns open_url } ::] open_url 



55 



if {$SERVER> { 

set init_url . /tclhttpd/htdocs 



60 set new_url [tX^getOpenFile -title "Open image/iat file." \ 

-initialdir $init_url \ 
-defaultextension ".svg" \ 

-filetypes { {IMG { -png .PNG .tif .TIP .jpg .JPG}} {SVG {.svg . SVG ) } ) ] 

65 if {$new__url == ■■) { return } 

puts ■ new_url = $new_url" 



70 



set new_url ■ f ile : $new_url • 
url_open_url $ns $new_url 



} 



proc iat: :app: :url_open_url { ns {url ■ ■ ) ) { 
variable TRACE 

75 if {$ TRACE) ( puts "iat: :app: : ur l_open_url : $ns $url" ) 

variable SERVER 
variable SERVER_STATE 

upvar #0 [join [list [namespace current] $ns image__canvas ] ::] image_canvas 

80 upvar #0 [join [list [namespace current] $ns image__url] ::) iznage_url 

upvar #0 (join [list [namespace current] $ns ants_ url] ::] ants_url 
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upvar #0 [join [list [namespace current] $ns entry_url) ::) entry_url 
upvar #0 [join [list [namespace current] $ns open_url] ::] open_url 

app^close^image $ns 

5 

if {[regexp {*file:> $url]> ( 

$entry_uxl delete 0 end 

$entry_url insert 0 $url 

regexp ("file: ( . *> > $url m path 
10 #puts " path = $path" 

regexp {.*\.<\S+)$> $path m ext 

#puts a ext = $ext" 

set ext [string tolower $ext] 

switch -regexp $ext { 
15 "png| jpg|tif ■ { 

set tmp " • 



20 



25 ) 

"svg - { 



set image_url $url 

url_loa6Limage $ns $image_url 

set tmp [url_for_ants $ns $image__url] 

if {$tmp !="•){ 

set ants__url $tmp 

url_loacL_ants $ns $ants_url 

) 

set open_url [file dirname $path] 



35 



set tmp 

set ants_url $url 

set tmp [url_for_image $ns $ants_url] 
30 puts " url_for__image = $tmp° 

if {$tmp !~ ••) { 

set image_url $tmp 

ur 1_1 oad_image $ns $image_url 

> 

url_loacl_ants $ns $ants_url 
set open_url [file dirname $path] 

default { 

if ([file isdirectory $path] } { 
40 folder_open_url $ns "file:$path" 

> 

} 

} else { 

45 puts "ERROR, non-file url: $url" 

} 

$ iraage_canvas redraw 

50 if {$ SERVER} { 

set SERVER_STATE GO 
url_save_server $ns 

#set fh [open * . /tclhttpd/htdocs/index.htm" w] 
55 #puts $fh "<html>\n" 

#puts $fh »<head>\n» 

#puts $fh B <title>lAT SEKVER</title>\n" 

#puts $fh -<meta http-equiv=\"REFRESH\» content=\-5;DRL=index.htm\">\n" 
#puts $fh "</head>\n» 
60 #puts $fh •<body>\n" 

#puts $fh "IAT server session started...- 
#puts $fh "</body>\n" 
#puts $fh »</htinl>Yn- 
#close $fh 

65 

) 

) 

proc iat: :apps : url_f or_ants { ns url ) { 
70 variable TRACE 

if { $TRACE} { puts "iat: :app: :url_for_ants: $ns $url* } 

regexp {-f ile: ( . *) \. \S+$) $url m base 

75 set tmp •$base.svg° 

if {[file exists $tmp] ) { return -file:$tmp* } 
set tmp *$base.SVG* 

if {(file exists $tmp] ) { return -file:$tmp- } 



80 

) 



return ■ 
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^proc iat : : app : : url_f or_image { ns ur 1 } { 
variable TRACE 

if ($TRACE) { puts "iat: :app: :url_for_image: $ns $url" } 

5 regexp {~f ile: ( . *) \ . \S+$} $url m base 

set tmp "$base.png" 

if {[file exists $tmp] } { return "file:$tmp" } 
set tmp "$base.PNG" 
10 if {[file exists $tmp) } { return "file:$tmp" ) 

set tmp "$base.tif " 

if {[file exists $tmp] } { return "file:$tmp" } 
set tmp "$base.TIF" 
15 if {{file exists $tmp] } { return fl file:$tmp" } 

set tmp "$base.jpg" 

if {[file exists $tmp) > { return "file:$tmp" } 
set tmp "$base.JPG" 

20 if {[file exists $tmp] } { return "file:$tmp" } 



return 



> 



25 proc iat : : app : : url_load_jLmage { ns {url ""}} { 
variable TRACE 

if ($TRACE) { puts "iat : :app: :url_loacLimage: $ns $url" ) 

upvar #0 [join [list [namespace current] $ns image_url] ::] image_url 
30 upvar #0 [join (list [namespace current J $ns image_canvas) ::] image_canvas 

if {$url == •") { set url $image_url } 

if { [string match file:* $urlj } { 
35 regexp {^f ile: { . *) } $url m path 

$image__canvas configure -file $path 
> else { 



40 > 



) 



45 



proc iat : :app: :url_load_ants { ns {url ""}} { 
variable TRACE 

if {$TRACE} { puts " iat : : app : : url_loacL.ants : $ns $url" } 

upvar #0 [join [list [namespace current) $ns image_canvas ] ::3 image__canvas 



if {[regexp {~file:> $url] } { 
50 regexp {~file:(.*)> $url m path 

if {[file exists $path) } { 
set svg 

set fh [open $path r) 
55 set svg [read $fh) 

close $fh 

# regexp out the <IAT>. . .</IAT> data, 
set ants 

regexp {<IAT>.*</IAT>} $svg ants 
60 # parse here... pass reference... 

set doc [tex: : create -xml $ants] 
$doc parse 
#$doc dump; exit 

$image_canvas annotations readLcmds $doc 
65 #$image_canvas annotations parse $ants 

edit_update__view $ns 
> 



70 ) 



75 



80 



proc iat: :app: :url_save_server { ns } { 
variable TRACE 

if {$TRACE} { puts "iat: tapp: :url_save: $ns B } 

variable SERVER_ONCE 

variable SERVER_STATE 

upvar #0 [join [list [namespace current) $ns image_url] ::] image_url 

upvar #0 [join (list [namespace current) $ns image__canvas ] ::) image_canvas 



if {$SERVER_STATE != "GO") { return ) 
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set svgfile [file rootname [file tail $image_url] ] . svg 

set fh [open ". /tclhttpd/htdocs/ index, htm" w) 
5 puts $fn "<html>\n" 

puts $fh "<head>\n" 

puts $fh "<title>IAT: $svgf ile</title>\n" 

puts $fh -<! — <meta ht tp- equ i v= \ * REFRESH \ - content = \ " 5 ; URL= index . htm\ ■ > — >\n" 

puts $fh •</head>\n B 
10 puts $fh "<body>\n" 

puts $fh "<embed name=\"SVG0\ " type=\" image /svg+xml\" width=\*100%\" heights \" 100% \ ■ 
src=\"$svgfile\"x/erobed>\n" 

puts $fh "<noembed>No SVG embed. . .</noembed>\n" 

puts $fh "</body>\n" 
15 puts $fh "</html>\n" 

close $fh 



set rvs [ $image__canvas svg] 
#puts $rvs 
20 set menu [1 index $rvs 7] 

set ants [lindex $rvs 8 J 



set uPath ■ . /tclhttpd/htdocs /update. xml" 
set fhx [open $uPath w] 
25 puts $fhx "<g id= *NEWANTS 1 >\n" 

puts $fhx " $menu\n$ants ■ 
puts $fhx "</g>\n" 
close $fhx 



30 #if {$SERVER_ONCE == 0} { 

# url_save $ns 

# incr SERVER_ONCE 
#} 

35 > 



proc iat: :app: :url_save { ns > { 
variable TRACE 

if { $ TRACE } { puts ■ ia t : : app : : ur l_save : $ns ■ } 

40 

variable SERVER 

variable SERVER_STATE 

upvar #0 [join (list [namespace current] $ns image_canvas ] ::] image__canvas 
upvar #0 [join [list (namespace current] $ns image_urlj image__url 
45 upvar #0 [join [list [namespace current] $ns ants_url ) ::] ants_url 



set SERVER_STATE WAIT 



if { $ants_url == ■■) { 
50 url_save__as $ns 

return 

> 



if {[file exists $ants_url]) { 
55 set choice [tk_messageBox \ 

-title "Overwrite file?" \ 

-message "Overwrite existing annotation (.iat) file?' \ 
-icon question \ 
-type yesno \ 

60 -default yes } 

if {$choice != "yes") { return ) 

) 



#set ants [ $ image_canvas annotations make all 0] 
65 set ants [app_make_svg $ns3 

url__save_ants $ns $ants_url $ants 



set SERVER_STATE GO 

J 

70 

proc iat: :app: :url_save__as { ns } { 
variable TRACE 

if ($TRACE> { puts "iat : :app: :url_save_as : $ns" } 

75 upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image__canvas 

upvar #0 (join [list [namespace current) $ns image_url] ::] image_url 
upvar #0 [join [list [namespace current] $ns ants_url] ::] ants_url 



regexp (~file:(.*)) $image_url m image_path 
80 set init_path [file dirname $image_path] 

set init_file [lindex [file split [file rootname $image_path] ] end] 
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set new_url [tk_getSaveFile -title "Save SVG file:" \ 
-initialdir $init_path \ 
-initial file $init_file \ 
-defaultextension ".svg" \ 
5 -filetypes {{"SVG B {svg SVG}}} 3 

if {$new_url == ■•} { return } 

if {[file exists $new__url] } { 
10 set choice [tk_messageBox \ 

-title "Overwrite file?" \ 

-message "Overwrite existing SVG file?" \ 

-icon question \ 

-type yesno \ 

15 -default yes ] 

if {$choice != "yes") ( return } 

} 

set ants_url " f ile : $new_url ■ 
20 #set ants [$image_canvas annotations make all 2] 
set ants [ app_make_s vg $ns] 

ur l_s a ve_an t s $ns $ants_url $ants 

> 

25 

proc iat : :app: :url_save__ants { ns url ants } { 
variable TRACE 

if {$TRACE} { puts "iat: :app: :url_save_ants: $ns $url \n $ants" } 



30 



if {[regexp { A file;} $url]} { 

regexp {~f ile: ( . *) } $url m path 



if {[file exists «$path.old" ] } { 
35 file delete *$path.old" 

} 

if {[file exists $path] } { 

file rename $path "$path.old" 

} 

40 

set fh [open $path w] 
#puts $fh B <?xml version^X-LOV ?>" 
#puts $fh "<image>" 
puts $fh $ants 
45 #puts $fh "</image>\n a 

close $fh 

} 

> 

50 

proc iat : :app: :folder_open ( ns } { 
variable TRACE 

if ($TRACE) { puts "iat: :app: :folder_open: $ns" } 

55 upvar #0 [join [list [namespace current] $ns open_url] ::] open_url 

set new_url [ tk_chooseDirectory -title "Open image folder — " \ 
-initiaidir $open_url ) 

60 if { $new__url == "■} { return ) 
#puts " new_url = $new_url" 

set new_url "filerSnew^url" 
#url_open_url $ns $new_url 
65 f older _make_contact_sheet $ns $new_url 



proc iat : :app: :folder_open_url { ns new__url ) { 
70 variable TRACE 

if {$TRACE} { puts " iat : : app : : f older_open_url : $ns $new_ url* } 

upvar #0 [join [list [namespace current] $ns open_url] ::] open__url 

75 if <$new_url == { return } 

folder_make_contact_sheet $ns $new_url 

} 

80 

proc iat: :app: :folder_make_contact_sheet { ns url } { 
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variable TRACE 

if {$TRACE} { puts *iat: :app: :folder_make_contact_sheet: $ns" } 

upvar #0 tjoin [list [namespace current] $ns image_f rame) ::] image_f rame 
5 upvar #0 [join [list [namespace current] $ns image_canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns open_url] :;] open_url 

app_close_image $ns 

10 #folder_make_thumbnails $ns $url 

#puts "image canvas = $ i_raage__canva s " 
$iraage_canvas destroy 

set c [iat: : thumbs :: create $image_f rame] 
15 set image_canvas $c 

$image__canvas conf igure -callbackselect ■ iat : : app : : contact_sheet__select 9 
$ image_canvas configure -url $url 

return 

20 

regexp ( A file:(.*)} $url m srcPath 

set tmpPath [file join $srcPath 00_TMP] 

set tmbPath [file join $tmpPath T] 

25 set files [glob [file join $tmbPath *.JPG]] 

pack forget $image_frame 
set wpath $ image_f rame 
destroy $image_frame 

30 

set image_frame [frame $image_frame] 
set csf $image - frame 

canvas $csf .canvas -width 10 -height 10 \ 
35 -yscrollcommand [list $csf .yscroll set] 

scrollbar $csf.yscroll -orient vertical \ 
-command [list $csf .canvas yview] 

pack $csf .yscroll -side right -fill y 

pack $csf. canvas -side left -fill both -expand true 
40 #grid $ top. c. canvas $ top. c. yscroll -sticky news 

pack $csf -side top -fill both -expand true 

set f [frame $csf .canvas. f -bd 0] 

$csf .canvas create window 10 10 -anchor nw -window $f 

45 

set n 1 

foreach {fl f2 f3) $files { 

if {[file exists $f 1] ) { 
50 set tmbl [image create photo -file $fl] 

set btnl (button $f.tmb$n -image $tmbl -command " iat : : app : : contact_sheet_select $ns $fl"] 

> else { 

set btnl [button $f .tmb$n -text X] 

} 

55 incr n 

if ([file exists $f2] > { 

set tmb2 [image create photo -file $f2J 

set btn2 [button $f.tmb$n -image $tmb2 -command -iat: ;app: :contact_sheet_select $ns $f2"] 
60 } else { 

set btn2 (button $f .tmb$n -text X] 

) 

incr n 

65 if ([file exists $f3]) { 

set tmb3 [image create photo -file $f3] 

set btn3 [button $f.tmb$n -image $tmb3 -command ■ iat : : app : : contact_sheet_select $ns $f3"] 

> else { 

set btn3 (button $f.tmb$n -text X] 

70 ) 

incr n 

grid $btnl $btn2 $btn3 -padx 4 -pady 4 
#pack $btn 

75 } 

tkwait visibility $ csf .canvas 
set bbox [grid bbox $f 0 0] 
set incr [lindex $bbox 3] 
80 set width [winfo reqwidth $f ] 

set height (winfo reqheight $f] 
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$csf. canvas config -scrollregion "0 0 $width [expr $height+50J" 
$csf -canvas config -yscroll increment 20 

$csf .canvas config -width $width -height (expr $height+50] 



5 ) 



proc iat: :app: : con tact_sheet_s elect { ns tfile ) { 
variable TRACE 

if ($TRACE) { puts "iat: : app: : con tact__sheet_s elect: $ns $tfile" ) 

10 

set tparts (file split [file rootname $tf ile] ] 
set iparts [lrange $tparts 0 [expr [llength $tparts]-4] 3 
#set if ile [file join $iparts] 
lappend iparts [1 index $ tparts end] .PNG 
15 set path [eval -file join $iparts"J 

#puts "image file = $path" 

set app [app_new] 

$app configure -url "f ile: $path* 

20 } 



proc iat: :app; :app_make__svg { ns } { 
25 variable TRACE 

i f { $ TRACE ) { puts " iat : : app : : app_make_svg : $ns " } 

variable DEMOl 
variable SQRJMG 
30 variable SERVER 

variable BATIK 



upvar #0 [join [list [namespace current] $ns image_canvas] :s) image_canvas 
upvar #0 [join [list [namespace current] $ns image_url] ::) image_url 
35 upvar #0 [join [list [namespace current] $ns svg_pkg] ::] svg__pkg 

# current view . . . 

upvar SO [join [list [namespace current) $ns entry_view] ::] entry_view 
set view_vals [$entry__view cget -values] 
4 0 set view_text [1 index $view_vals [$entry„view getvalue] ] 

set dtd "<!DOCTYPE svg PUBLIC \ "-//W3C//DTD SVG 20010904/ /EN\" 
\"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svgl0.dtd\" \[ < I ATTLIST svg xmlns:a3 CDATA # IMPLIED 
a3 : scriptlmplementation CDATA #IMPLIED> <! ATTLIST script a3 :scriptImplementation CDATA #IMPLIED> \]>\n" 

45 

set rvs [ $image_canvas svg] 
#puts $rvs 

set bL [lindex $rvs 0] 

set bT [lindex $rvs 1] 
50 set bR [lindex $rvs 2] 

set bB [lindex $rys 3] 

set bColor [lindex $rvs 4] 

set imgx I lindex $rvs 5] 

set imgy (lindex $rvs 6] 
55 set menu [lindex $rvs 7) 

set ants [lindex $rvs 8] 



at llregexp ("file:) $image_url)} { 

regexp ("f ile: ( . *) ) $image_url m path 
60 set parts (file split $path] 

) else { 

return "ERROR in image_url" 

> 



65 # Use to generate square output (for KA scale drag-and-drop) 

set recx $imgx 
set recy $imgy 
set handles 
if ($SQRIMG> { 
70 if ($recx > $recy) { 

set recy $recx 
} else ( 

set recx $recy 

) 

75 set bL 0; set bT 0; set bR 0/ set bB 0 

set handles " onload=\ "handleOnLoadScale (evt ) \ ■ onzoom=\ "handleUpdateScale ( evt ) \ ■ 
onscroll=\"handleUpdateScale(evt)\° onresize=VhandleUpdateScale(evt) \" • 
} 

if {$SERVER> ( 
80 set handles ■onload=\»handleOnLoad(evt) \» ■ 

) 
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append handles ■ xmlns=\ -http: //www. w3 .org/ 2000/ svg\" xmlns :xlink=\"http :/ /www. w3.org/ 1999 /xlink\- 
xmlns : a3=\ "http : / /ns . adobe . com/AdobeSVGViewerExtensions/3 . OA * a3 : script Implementation^ ■ Adobe \ ■ " 

set svg 

5 

set hh (expr round ($imgx * $bL) ] 
set bT [expr round ($imgy * $bT> ] 
set bR (expr round ($imgx * $bR) ] 
set bB [expr round <$imgy * $bB) ] 

10 

set alone "no" 

if {$svg_pkg} { set alone "yes" ) 

append svg -<?xml version^ ' 1 . 0 • standalone^ ■ $ alone ■ ?>\n" 
append svg "$dtd* 

15 #append svg "<svg width=' [expr $±mgx+$bL+$bRj • height=' [expr $imgy+$bT+$bB] • >\n" 

# previous lines didn ' t allow dynamic port changes . . . 

append svg "<svg viewBox='0 0 [expr $recx+$bb+$bR] [expr $recy+$bT+$bB] » preserveAspectRatio= 'xMinYMin' 
$ handles ■ 

tappend svg * xmlns :xlink= 'http: //www. w3c.org/1999/xlink' ■ 
20 append svg ">\n° 

# metadata 

append svg "<metadata><! \[C3>ATA\[\n" 
append svg ■ <IAT>\n" 

append svg [$image_canvas annotations make all 3] 
25 append svg " </IAT>\n B 

append svg *\] \]></metadata>\n" 

if {$DEMOD { 

append svg "<rect width=»[expr $recx+$bL+$bR] \ height= • [ expr $recy+$bT+$bB) » style= • fill : white ; 
30 stroke: red; stroke-width: 2px' />\n" 

append svg -<text x='$bL« y^bT 1 style=' font-size: 32; text-anchor : start ; f ill :red' >N/A in 1AT 
Technology Evaluation</text>\n" 
append svg *</svg>\n" 
return $svg 

35 ) 

# javascript 

variable use_javascript_f ile 
if {$use_javascript_file} { 

set jsfile [file join . js4svg.js] 
40 if {[file exists $ jsfile]) { 

set fh [open $ jsfile r] 
set js [read $fh] 
close $fh 
append svg $js 

45 } 

} e'lseif {$DEM01} { 

# don * t include j avascript . . . 
} else { 

append svg [ ia t : : var_s tr_j s4svg J 

50 } 

append svg "<! — END_JAVA — >\n" 



append svg «<rect width='Iexpr $recx+$bI*+$bRJ • height=* [expr $recy+$bT+$bB] ' sty le=» fill :$bColor; 
55 stroke: red; stroke-width :2px' />\n" 

#puts " exportlmageAsSVG : annotationSource = $annotationSource» 
if (0) { 

set iatfile [lindex $parts end] 
set chnames [array names channe lFi leMap ] 
60 set chnames [lsort -dictionary $chnames] 

foreach chname $chnames { 

set endchfile [lindex [file split $channelFileMap($chname) J end] 
set display "none" 

if {$endchfile == $iatfile) { set display -inline- } 
65 #puts "exportlmageAsSVG add channel: $endchfile' 

append svg " <image id= 1 $endchf ile-channel ■ style= * display : $display ' x= 1 $bL 1 y= ■ $bT ' width= ' [ expr 
$imgx] • height=' [expr $imgy] 1 xlink:href=* ,/$endchf ile'>\n- 
append svg "</image>\n" 

) 

70 } elseif <$svg_pkg) { 

tputs "image: $path = [file size $path] ■ 
set input (open $path r) 

f configure $input -translation binary -encoding binary 
set img_str [base64 :: encode [read $input]] 
75 close $ input 

#puts $img_str 

append svg "<image id= * default-channel 1 style=' display -.inline' x= , $bL l y= ' $bT * width= ' ( expr $imgx] ■ 
heights* [expr $imgy]'\n- 
80 append svg ■xlink:href=\ 0 data: ;base64, \n$img_ str\">\n D 

append svg ■</image>\n* 
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} else ( 

append svg "<image id=« default -channel • style= 'display : inline* x='$bL' y='$bT' width= ' {expr $imgx] 1 
height^* [expr $imgy) » xlink:href = 1 . / [lindex $parts end] ^Nn" 
append svg ' , </image>\n ,, 

5 } 



# stop and go buttons for server delivery 

if { $ SERVER) { 

set u {expr $recx/25] 
10 set v [expr $recx/50] 

set z [expr $recx/100] 

append svg "<rect x=' [expr $bL+$v] ' y=»[expr $recy-$bB-$u) • width=« [expr $u*6] • heights ■ [expr $u] 1 
style=' fill: white; stroke.-white; stroke-width : $z» />\n" 

append svg "<rect id= 'updateStopButton' x= • [expr $bL+$vJ • y=' [expr $recy-$bB-$u] • width=« [expr $u] 1 
15 height=' [expr $u) ' style= • fill : red; stroke:black; s troke -width : 2px; visibility : inherit; ' 
onclick^ 1 antRef reshStop ( ) • />\n" 

append svg "<polygon id=*updateStartButton« points= • [expr $bl.+$v] , [expr $recy-$bB] [expr 
$bL+$v), [expr $recy-$bB-$u) [expr $bL+$v+$u) , [expr $recy-$bB-$v] * style=' fill: green; strokerblack; 
s troke -width : 2px; visibility : hidden; 1 onclick= ' antRef reshStart ( ) 1 />\n" 
20 append svg "<text id= ' currentViewText ' x= ' [expr $bL+$u+$u] * y= * f expr $recy-$bB-$zJ * 

style=' font-size: 24; •> $view__text </text>\n" 
) 



append svg "<g id= ' SVG ANTS ' >< I — START_ANTS — >\n u 
25 # context menu 
if { $ BATIK) { 

# do not insert menu . . . w 
append svg $ants 
} else { 
30 append svg $menu 

if {!$SERVER} { 

append svg $ants 

> 

) 

35 append svg "</g><! — END_ANTS — >\n" 

# append svg "<! — END_ANTS — >\n° 
append svg "</svg>\n* 
#puts $svg 

#set fh [open $f ileNameSVG w] 
40 #puts $fh $svg 
#close $fh 



#set antpath [file dirname $path] 
#append antpath ■ /update. xml" 

45 #puts "antpath = $ antpath" 
#set fh [open $antpath w] 
#puts $fh °<g id= ' NEWSVGANTS 1 > \n ■ 
#puts $fh * $menu\n$ants ■ 
#puts $fh "</g>\n" 

50 #close $fh 



# Generate sample html file from svg... 

texportSVGDefaultHTMLPage [file root $f ileNamelmage] .HTM [lindex [file split $f ileNameSVG) end) $svg 

55 return $svg 
} 

proc iat : : app : : app_export_ps { ns ) { 
variable TRACE 

60 if { $TRACE) { puts "iat: : app: :app_expor tips: $ns" } 

upvar #0 [join flist [namespace current) $ns image_canvas ) ::) image__canvas 
upvar #0 [join [list [namespace current] $ns image_url] ::) image_url 

65 if {[regexp {^file:} $image_url ] ) { 

regexp { *f ile :<.*)} $image_jurl m path 

set img_file [file rootname $path) 

append irag_file "_x.ps" 

#puts " img_file = $img_file* 
70 ) else { 

return ■ ERROR in app_export_ps ■ 

) 



if {[file exists $img_f ile] ) { 
75 set choice [tk_messageBox \ 

-title "Overwrite file?" \ 

-message "Overwrite existing Postscript (.ps) file?" \ 
-icon question \ 
-type yesno \. 
80 -default yes 3 

if {$choice != "yes") { return ) 
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) 

$image_canvas postscript $img_file 

5 } 

proc iat: :app: :app_export_image { ns ) { 
variable TRACE 

if {$TRACE} { puts " iat : : app : : app_export_image : $ns" } 

upvar #0 [join [list [namespace current] $ns image_canvas ) ::) image__canva s 
upvar #0 [join [list [namespace current] $ns image_url] ::] image_url 



10 



if {[regexp { A file:} $image_url] ) { 
15 regexp {~file:(.*)} $image_url m path 

set img_file [file rootname $path] 
append img_file "__CANVAS.jpg" 
#puts " img_file = $img_file" 
} else { 

20 return "ERROR in image_url" 

> 

if {[file exists $img__f ile] } { 
set choice [tkjnessageBox \ 
25 -title "Overwrite file?" \ 

-message "Overwrite existing image (.jpg) file?" \ 
-icon question \ 
-type yesno \ 
-default yes ] 
30 if {$choice "yes") { return } 

) 

set img [ $image_canvas image] 
35 $img write $img_file -format JPEG 



proc iat: :app: : app_export_svg { ns } { 
40 variable TRACE 

if {$TRACE} { puts "iat: :app: :app_export_svg: $ns" } 

variable DEMOl 
if {$DEM01} { 

45 tk_messageBox -type ok -message "This option is not available in the IAT Technology Evaluation.' 

return 

) 

upvar #0 [join [list (namespace current] $ns iraage_canvas ] ::] image_canvas 

50 upvar #0 [join [list [namespace current] $ns image_url] ::] image_url 

if ([regexp {~file:} $image_url] ) ( 

regexp { ~f ile: ( . * ) } $image_url m path 
set svg_file [file rootname $path] 
55 append svg_file ■ .svg" 

puts " svg_file = $svg_file" 
} else ( 

return "ERROR in image_url" 

) 

60 

if {[file exists $svg_f ile] } { 
set choice [tk^messageBox \ 

-title "Overwrite file?" \ 

-message "Overwrite existing SVG <.svg) file?" \ 
65 -icon question \ 

-type yesno \ 
-default yes ] 
if {$choice != "yes") { return > 

) 



70 



set svg [ app_make_svg $ns] 
puts $svg 



set fh [open $svg_file w] 
75 puts $fh $svg 
close $fh 



8 0 proc iat : : app : : app_export_svgpkg { ns } { 
variable TRACE 
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if {$ TRACE) { puts "iat: :app: :app__export__svgpkg: $ns" } 

variable DEMOl 
if {$DEMOD { 

5 tk_messageBox -type ok -message "This option is not available in the IAT Technology Evaluation, 

return 

> 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image__canvas 

10 upvar #0 [join [list [namespace current] $ns image_url] ::] image__url 

upvar #0 [join [list [namespace current] $ns svg_pkg] ::] svg__pkg 

if {[regexp {^file:} $image_url] } { 

regexp {~f ile: < . *) ) $image_url m path 
15 set svg_file [file rootname $path] 

append svg_file "_pkg.svg" 
#puts " svg_file = $svg__file" 
} else { 

return "ERROR in image_url" 

20 } 

if {[file exists $svg_f ile] } { 
set choice [tk_messageBox \ 

-title "Overwrite file?" \ 
25 -message "Overwrite existing SVG package (_j?kg.svg) file?" \ 

-icon Question \ 
-type yesno \ 
-default yes ] 
if {$choice != "yes") { return } 

30 > 

set svg_pkg 1 
set svg [app_make_svg $ns) 
set svg_pkg 0 
35 #puts $svg 

set fh [open $svg_file w] 
puts $fh $svg 
close $fh 

40 

) 

proc iat: :app: :app_export_html_default { ns } { 
variable TRACE 

45 if {1} { puts "iat: :app: :app_export_html_de fault: $ns" } 

variable DEMOl 
if ($DEM01) { 

tk_messageBox -type ok -message "This option is not available in the IAT Technology Evaluation. 
50 return 
) 

upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 

upvar #0 [join [list [namespace current] $ns image_url) ::] image__url 

55 upvar #0 [join (list [namespace current] $ns svg_pkg] ::] svg_pkg 

if {[regexp {~f ile : } $image_url]} { 

regexp {^f ile: < - *) } $image_url m path 

# read only. . . 

60 set svg_file [file rootname $path] 

append svg_ file ".svg* 
puts " svg_file = $svg_file" 

# write only. . . 

set html_file [file rootname $path] 
65 append html_file "_default.htm" 

puts " html_file = $html_file" 
) else { 

return "ERROR in image_url" 

) 

70 

if {[file exists $html_f ile] } { 
set choice [ tk_messageBox \ 

-title "Overwrite file?" \ 

-message "Overwrite existing HTML file (_default.htm) file?" \ 
75 -icon question \ 

-type yesno \ 
-default yes 3 
if {$choice != "yes") { return } 

} 



80 



set svg [$image_canvas annotations make all 3] 
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#puts $svg 
set orders [list] 
set state -NONE" 
set lines [split $svg "\n"] 
5 foreach line $lines { 

if {[regexp {^\s*</roi>} $line] } { 
set state NONE 

} 

if {[regexp { A \s*<roi } $line] } { 
10 regexp {"\s*<roi\s+. *order=\- (\S+) \" } $ line match order 

lappend orders $ order 
#puts ■ order = $ order" 
set state ROI 

> 

15 } 

set orders [lsort -dictionary $ orders 3 
set tmps [list] 
foreach order $ orders { 
20 lappend traps \ , $order\ t 

} 

set arr "\[[join $tmps "," In- 
puts " arr = $arr" 

25 set html "<html>\n" 

# javascript 

variable use_javascript_f ile 
if {$use_javascript_file} { 
30 set jsfile [file join . js4html.js] 

if {[file exists $jsfile] } { 
set fh [open $ jsfile r] 
set js [read $fh] 
close $fh 
35 append html $js 

} 

} elseif <$DEM01} { 

# don't include javascript... 
} else { 

40 append html [iat : ;var_str_js4html] 

> 

set ants_html " " 

45 append html "<head>" 
append html "</head>" 
append html "<body>" 

append html "<table widths' 100%' heights 1 100%' borders' 1 *>\n m 
append html "<tr widths' 100%' >\n" 
50 append html "<td width= » 7 0% ' xembed widths 1 100%* height='100%' src=' $svg_f ile* names' image' 
puginpage= 1 http : / /www . adobe . com/svg/ ' ></ td>\n* 
append html "<td widths • 30% '>\n" 

append html "<form name= 1 hilite_f orm 1 >\n <table width='100%' heights 1 100% ' valign= 1 TOP ' borders »l»>\n" 

append html " <trxtd><input types 'button 1 values 'Toggle Mouseovers* 
5 5 onclicks \ "window , antToggleMouseOver All ( $arr , 1 > ; \ ■ x / tdx / tr> \n " 

append html ■ <trxtdxinput types 'button' values' Hide All" 
onclicks \ "window. antSetShowAll ($arr, false, 1) ;\ B x/tdx/tr>\n" 

append html ■ <trxtdxinput type= 'button 1 values 'Show All' 
onclicks \ " window, an t Se tShowAl 1 ($arr, true, 1) ;\*></td></tr>\n' 
60 append html - <trxtdxbr>ANNOTATIONS</tdx/tr>\n" 

append html $ants_html 

♦append html "</td>\n</tr>\n" 

append html ■ <trxtdxbr>CAPTION</tdx/tr>\n" 

append html ■ <tr widths 1 100%' xtd widths '100%' heights' 100% 1 align='LEFT' valign='TOP'xp 
65 ids » caption ' >no caption</px/tdx/tr>\n" 

append html ■ </table>\n</form>\n" 
append html "</tdx:/trx/table>\n" 
append html "</body>\n" 
70 append html "</html>" 
#puts $html 

set fh [open $html_file w] 
puts $fh $html 
75 close $fh 

return 



80 proc iat: :app : :app_exportjitml_old_old_old {} { 
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set lines [split $svg "\n") 
set iatimage ■ ■ 
set iatchannels (list) 
set iatviews [list] 
5 set order BO 
set symbol • ■ 
set label 
set caption 
set IMG 0 
10 set SYM 0 

set ALL 0 
set OK 0 

for each line $ lines { 
#puts -line: $line* 

15 if { [regexp {~\s*<image\s+id=* (\S*) -channel' ) $line match xxx ]} { 

lappend iatchannels $xxx 

) 

if {[regexp {^Xs^imageXs+id:::' (\S*) -channel • .* 'display : inline' ) $ line match xxx ]) { 
lappend iatimage $xxx 

20 ) 

# svg symbol contains iat symbol label and captoin for each order 

# note: the dangers of a polluted namespace. . . 
if {[regexp {~\s*</symbol>} $line 3} { 

#puts "save symbol: $order, $symbol, $label, $caption" 
25 set txtdatas ($order) [list symbol $symbol label $label caption $caption] 

set order 

set symbol ■ ■ 

set label 

set caption 
30 set SYM 0 

} 

if {$SYM> { 

if {[regexp {<symbol>\s* (\S*) \s*</symbol>} $line match xxx ]} { 
set symbol $xxx 
35 #puts "html found symbol: $symbol" 

) 

if {[regexp {<label>\s* t . *) \s*</label>} $ line match xxx ]> { 
set label $xxx 

#puts "html found label: $ label" 

40 } 

if {[regexp {<caption>\s* < .*) \s*</caption>} $ line match xxx J } { 
set caption $xxx 

#puts "html found caption: $caption" 

> 

45 } 

if {[regexp {*\s*<symbol\s+id= ' (\S+) ' } $line match xxx ]} { set order $xxx; set SYM 1 } 

# Annotation data taken from All view 

if {[regexp {<! — \s*end\s+All-view} $line ]> { set ALL 0 ) 
if ($ALL) { 

50 if {[regexp {<g\s+id='ALL-(\S+) ' } $ line match xxx] } { 

set order $xxx 
#puts "html order = $order" 
set OK 1 

> 

55 ) 

if {$OK> { 

if { [info exists txtdata) } { unset txtdata } 
regexp { A ( \S+ : > ) $order match okey 
if {[info exists txtdatas ($okey) J } { 
60 set 1st $txtdatas{$okey) 

array set txtdata $txtdatas{$okey) 
} else { 

set 1st [list symbol none label none caption none) 
array set txtdata $lst 

65 } 

#puts "load symbol = $lst" 

set str • <tr widths ' 100% ' ><td width=' 100%' align= • LEFT ■ xinput type= • checkbox ' value=" 
onclick=\"setAnnotationVisibility(this, *$order')\" checked > <a 

href =\ "javascript : showCaption ( ' $ txtdata (caption) • ) \ " >$okey $ txtdata ( label ) </a> </tdx/tr>\n" 
70 append ants_htral $str 

#puts "html ant: $str" 
set OK 0 

) 

if {[regexp { <g \s+id= 'ALL- view 1 ) $line ]} { set ALL 1 } 
75 # All miat view plus other views 

if {[regexp {<g\s+id=' ( \S+) -view' } $line match xxx ]} { lappend iatviews $xxx } 



80 



} 

set html "<html>\n B 

# file that contains javascript... 



10 
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set jsfile (file join $iatPath js4html.js] 
set fh [open $jsfile r] 

append html *<script language =' JavaScriptl . 2 *>\n" 
append html •<! — \n" 
append html [read $fh] 

append html ■ \ncurrent_channel = ' $iat image • \n» 
append html "// — >\n" 
append html "</script>\n" 
close $fh 



append html "<head>" 
append html "</head>" 
append html "-cbody^ 

append html *< table width='100%' height='100%' border= '1 '>\n" 
15 append html "<tr widtb=*100% • >\n" 

append html "<td widths' 7 0%'xembed widths'100% 1 height= > 100%' src=* $f ileNameSVG 1 name= ' image • 
puginpage= » http : / /www . adobe . com/svg /viewer /install/ ' ></td>\n" 
append html "<td width=* 30%*>\n" 

append html "<form name= 'hilite_f orm'>\n < table width='100%* height= ' 100% ' valign= ' TOP • border ='l f >\n 
20 append html * <trxtd><input type = • checkbox 1 valuer 1 1 
onclick= * toggleMouseOvers (this) ' >ROLLOVERS</tdx/tr>\n* 

append html ■ <trxtdxbr>CHANNELS</tdx/tr>\n" 
foreach iatchannel $iatchannels { 
25 set checked ■* 

if {$ iatchannel $iatimage) { set checked "checked" } 

append html n <tr width= 1 100% • xtd widths 1 100% ' align= • LEFT ' xinput type= * radio 1 
name= 1 channel -group * value- ■ $ iatchannel ' onclick=\ " setChannel ( this , ' $ iatchannel ' ) \ ■ $checked > $ iatchannel 
</tdx/tr>\n" 
30 } 

append html ■ <trxtdxbr>VIEWS</tdx/tr>\n" 
foreach iatview $iatviews { 
set checked ■ ■ 

35 if {$iatview == "ALL") { set checked "checked" } 

append html ■ <tr width= ■ 100% ' ><td width= , 100% 1 align= ' LEFT ' xinput type=' radio* name= ■ view-group 
value= * $iatview ' onclick=\ n setviewVisibility (this, •$ iatview* )\" $checked > $iatview </tdx/tr>\n" 
} 

40 append html " <trxtdxbr>ANNOTATIONS</tdx/tr>\n» 

append html $ants_html 
#append html "</td>\n</tr>\n n 

append html " <tr><tdxbr>CAPTION</tdx/tr>\n" 

append html 8 <tr widths • 100% » xtd width=*100%' height= l 100% • align= l LEFT' valign= ' TOP 1 ><p 
45 id= 1 caption ' >no caption</px/tdx/tr>\n" 

append html • </table>\n</form>\n" 
append html "</tdx/trx/table>\n" 
append html ■</body>\n ,< 
50 append html "</htinl>" 
#puts $html 

set fh [open $f ileNameHTML wj 
puts $fh $html 
55 close $fh 
) 

proc iat : :app: :scale_image { ns ) { 

60 upvar #0 [join [list [namespace current] $ns image_canvas] ::] image^canvas 

upvar #0 [join [list [namespace current] $ns image_scale] : : ] image_scale 

$image_canvas configure -scale $image__scale 

65 return 1 

) 

proc iat: :app: : toggle_toolbar { ns p tb tbs var > { 
70 variable TRACE 

if <$TRACE) { puts "iat: :app: :toggle_toolbar: $ns $p $tb { $tbs } $var" ) 



75 



set r [set $var) 
#puts "$var = $r" 



if ($r 0} ( 

foreach s $tbs ( 

#puts ■ forget: $p.$tb.$s" 
pack forget $p.$tb.$s 

80 } 

frame $p.$tb.xxx 
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pack $p. $tb .xxx 
) else { 

destroy $p.$tb.xxx 
for each s $tbs { 

#puts ■ packing: $p.$tb.$s" 

pack $p.$tb.$s -side left -pady 2 -expand 0 

> 
) 
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) 



proc iat: :app: :edit_create { ns kind } { 

variable SERVEI^STATE 

15 upvar #0 (join [list [namespace current] $ns image__url] ::] image_url 

upvar #0 [join [list [namespace current] $ns image_canvas) ::] image__canvas 
upvar #0 [join [list [namespace current] $ns status__labelj :.*3 status_label 

set SERVER^JSTATE WAIT 
20 $image_canvas create roi $kind 

set SERVER_STATB GO 



) 

25 proc iat: :app: :edit_select { ns mode } { 

upvar #0 [join (list [namespace current] $ns image_canvas ] 
$ image_canvas configure -select $mode 



; ] ima g e_c an va s 



30 



} 

proc iat: :app: :edit_create_jpointer { ns num ) { 



35 



40 



upvar #0 [join [list [namespace current] $ns image_ur 1 ] :;] ixnage_url 
upvar #0 [join [list [namespace current) $ns image_canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns status_label] ::] status_label 

$image_canvas create pointer $num 



> 



proc iat: :app: :edit_ptr_style { ns } { 

upvar #0 [join [list [namespace current] $ns image_canvas ] 
45 $image_canvas pointer style 
) 

proc ia t : ; app : : edi t_ptr__pin { ns } { 

upvar #0 [join [list [namespace current] $ns image_canvas] 
50 $ image_canvas pointer pin 
) 

proc iat: :app: : edit_ptr__symbol { ns } { 

upvar #0 [join [list [namespace current] $ns image__canvas ] 
55 $image_jcanvas pointer symbol 
) 



r : ] image__canvas 



: ] image_canvas 



: ] imag e_canva s 



proc iat : : app : : edit_ant_color { ns } { 
60 upvar #0 [join [list [namespace current] $ns image_canvas] 

set color [$image_canvas active get color] 
set color [ tk_chooseColor -initialcolor $color] 
$iznage_canvas active set color $color 



: : ] image_canvas 



65 



> 



proc iat: :app: :edit_ant__data { ns } { 
variable DEMOl 



70 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join [list [namespace current] 

[join [list [namespace current] 

[join [list (namespace current] 

[join [list [namespace current] 

(join [list (namespace current] 



$ns image_canvas ) 
$ns status_label] 
$ns entry_code} : i 
$ns entry_symbol ] 
$ns entry_label] : 



: : ] image_canvas 
: : ] status_label 
) entry_code 
: : ] entry_symbol 
: ] entry_label 



75 



80 



variable DEMOl 
if <$DEM01) { 

tk_messageBox -type ok 

return 

) 



-message "This option is not available in the IAT Technology Evaluation. 



set 1st [iat: ; dialog :: dialogued! t_data] 
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#puts " 1st = $lsf 

if {$lst == {}} { return } 

$entry_code delete 0 end 
5 $entry_symbol delete 0 end 

$entry_label delete 0 end 

$entry_code insert 0 [lindex $lst 0] 
$entry__symbol insert 0 [lindex $lst 1] 
10 $entry_label insert 0 [lindex $lst 2] 

) 

proc iat : : app : : edit_move { ns } { 

15 

upvar #0 [join [list [namespace current] $ns image__canvas ] ::] image_canvas 
$ image__canva s move active 

20 } 

proc iat: :app: :edit_ant_copy { ns } { 
variable tmp_ant_copy 

upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 



25 



30 

> 



set tmp_ant__copy [ $image_canvas annotations make active 0) 
#puts ■ tmp_ant_copy \n$ tmp_ant_copy " 



proc iat: :app: :edit_ant_paste { ns } { 
35 variable tmp_ant_copy 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image_canvas 
$image_canvas annotations paste $ tmp_ant_copy 

40 

) 

proc iat : : app : : edit__ant_cut { ns ) { 

45 variable SERVER 

variable SERVER_STATE 

upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 

set SERVER_STATE WAIT 
50 edit_ant_copy $ns 

$image_canvas delete active 
set SERVER_STATE GO 

if {$ SERVER} { 
55 url_save__server $ns 

) 

} 

proc iat : : app : : edit__set_view { ns } { 
60 #puts "iat: :app: :edit_set_view: $ns" 

upvar #0 [join [list [namespace current] $ns image„canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns entry_view] ::] entry_view 

65 set vals [$entry_view cget -values] 

$image_canvas active set view [lindex $vals [$entry_view getvalue] ] 

) 

proc iat : : app : : edit_update_view { ns {ivwIN •"} ) { 
70 #puts "iat: :app: :edit_update_view: $ns» 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns entry_view] ::] entry_view 

75 set vals [$entry_view cget -values] 

set val [lindex $vals [$entry_view getvalue]] 

if {$ivwIN == ■■) { 
) else { 
80 set ret 1 

set ivws [split $ivwIN] 
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for each ivw $ivws { 

if {tlsearch $vals $iyw] < 0} { 
set ret 0 
break 

} 

) 

if {$ret} { return } 



) 



10 #puts "VIEW VALUE = $val° 

set newvals [split [$image__canvas active update view] J 

if {$newvals == [list] > { return ) 

set vals Iconcat [list ALL NONE] $newvals] 

$entry_view configure -values $vals 
15 set idx [lsearch -exact $vals $val] 

if {$idx < 0} { 

$entry_view setvalue first 

> else { 

$entry__view setvalue @$idx 

20 } 

#edit_set_view $ns 

> 

25 

proc iat : :app: :edit_set__inview { ns } { 

upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 

upvar #0 [join [list [namespace current] $ns entry_inview] ::] entryLinview 

30 

$image_canvas active set in view [ $entry_inview get] 

} 

proc iat : : app : : edit__set__symbol { ns } { 

35 

upvar #0 £join [list [namespace current] $ns image_canvas ) ::] image_canvas 

upvar #0 [join [list [namespace current] $ns entry_symbol] ::] entry_symbol 

$image_canvas active set symbol [ $entry_symbol get] 

40 

} 

proc iat: :app: :edit_set_label { ns } { 

45 upvar #0 [join (list [namespace current] $ns image_canvas ] ::] image_canvas 

upvar #0 [join [list [namespace current] $ns entry_label] ::] entry_label 

$image_canvas active set label [ $entry_label get] 

50 } 

proc iat: :app: :edit_set_cs_class { ns } { 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image__canvas 
55 upvar #0 [join [list [namespace current] $ns entry_cs_class] ::] entry_cs_class 

$image_canvas active set cs__class [$entry_cs_class get] 

} 

60 

proc iat: :app: :edit_set_cs_tumor { ns } { 

upvar #0 {join [list [namespace current] $ns image_canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns en try_cs__ tumor} ::] entry_cs_tumor 

65 

$image_canvas active set cs_ tumor [ $entry__cs_tumor get] 

> 

70 proc iat: :app: : edit_set_cs_node { ns } { 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns entry__cs_node] ::] entry_cs_jnode 

75 $image_canvas active set cs_node [ $entry_cs_node get) 

> 

proc iat: :app: :edit_set - cs_metastasis { ns ) { 

80 

upvar #0 (join [list [namespace current] $ns image_canvas] ::] image_canvas 
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upvar #0 [join [list [namespace current] $ns entry_cs_jnetastasis] ::] entry_cs_metastasis 
$ image_canva s active set cs_metastasis [ $entry_cs_metastasis get] 

5 } 

proc iat: :app: :edit_set_cs_note { ns } { 



upvar #0 [join [list f namespace current] $ns image_canvas] ::] image_canvas 
10 upvar #0 [join [list [namespace current] $ns entry_cs_note] ::] entry_cs_note 

$image_canvas active set cs.jjote [$entry_cs_note get] 

) 

15 

proc iat: :app: :handle_ant_select { ns } { 
variable TRACE 

if {$ TRACE) { puts "iat: :app: :handle_ant_select: $ns" ) 



20 upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 
upvar #0 [join [list [namespace current] $ns entry_inview] ::] ent ry_invi ew 
upvar #0 (join [list [namespace current] $ns entry_code] ::] entry_code 
upvar #0 [join [list [namespace current] $ns entry_symbol ] ::] entry_symbol 
upvar #0 [join [list [namespace current] $ns entry_label] ::] entry__label 

25 upvar #0 [join [list [namespace current] $ns entry_caption] ::] entry_caption 



30 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join [list 

[join [list 

[join [list 

[join [list 

[join [list 



[namespace current] 
[namespace current] 
(namespace current] 
[namespace current] 
[namespace current] 



$ns entry_cs_class] : : ] entry_cs_class 

$ns entry_cs_tumor] : : ] entry_cs_tumor 

$ns ent ry_cs_node ] : : ] entry_cs__node 

$ns entry_cs_metastasis] ;:] entry_cs_metastasis 

$ns entry_cs„note] : : ] entry_cs_note 



$ en t ry_invi ew delete 0 end 
$entry_code delete 0 end 
35 $entry_symbol delete 0 end 
$entry__label delete 0 end 
$entry_caption delete 0.1 end 



$entry_cs_class delete 0 end 
40 $entry_cs_tumor delete 0 end 

$ en try_cs_node delete 0 end 
$entry_cs_inetastasis delete 0 end 
$entry_cs_note delete 0 end 



45 set ivw [ $image_canvas active get inview] 

set cod [$image_canvas active get code] 

set sym [ $image_canvas active get symbol] 

set lbl [$image_canvas active get label] 

set cap [$image_canvas active get caption] 



50 



#puts " symbol = $sym D 
#puts - label = $lbl" 
#puts ■ caption = $cap'* 



55 set cs_class t$image_canvas active get cs_class] 
set cs_tumor [$image_ canvas active $et cs_tumor] 
set cs_node [$image_canvas active get cs_node] 
set cs_metastasis ($image_canvas active get cs_metastasis] 
set cs_note [$image_canvas active get cs_jioteJ 

60 

$entry_inview insert 0 $ivw 
$entry_code insert 0 $cod 
$entry_symbol insert 0 $sym 
$entry_label insert 0 $lbl 
65 $entry_caption insert 0.1 $cap 

$entry_cs_class insert 0 $cs_class 
$entry__cs_tumor insert 0 $cs__tumor 
$entry_cs_node insert 0 $cs_node 
70 $entry_cs_metastasis insert 0 $cs_metastasis 
$entry_cs_note insert 0 $cs_note 



75 proc iat: :<-tpp: :handle_ant_deselect ( ns > { 
variable TRACE 

if { $ TRACE > { puts ■ iat : : app : : handle_ant_des elect : $ns ■ } 

upvar #0 [join [list (namespace current] $ns image_canvas] ::] image_canvas 
80 upvar #0 [join [list [namespace current] $ns entry_inview] ::] entry_inview 
upvar #0 [join [list [namespace current] $ns entry_code ] ::] entry_code 



10 



15 



WO 2004/057439 - 77 - 

Appendix 2 

upvar #0 [join [list [namespace current] $ns entry__symbol ] : : 
upvar #0 [join [list [namespace current] $ns entry_labelj 
upvar #0 [join [list [namespace current] $ns entry_caption] : 



CT/US2003/017138 



entry_symbo 1 
: : ] en try„ label 
] entry_caption 



upvar #0 [join [list [namespace current] $ns entry_cs__class] ::] entry_cs__class 

upvar #0 [join [list [namespace current] $ns en try__cs_ tumor] ::] entry_cs_tumor 

upvar #0 [join [list [namespace current] $ns entry_cs_node] ::] entry_cs_node 

upvar #0 [join [list [namespace current] $ns entry_cs_metastasis] ::] entry_cs__metastasis 

upvar #0 [join [list [namespace current] $ns entry_cs_note] ::] entry_cs_note 

set ivw [string trim [ $entry_inview get]] 

set cod [string trim [ $entry_code get]] 

set sym [string trim [ $entry_symbol get]] 

set lbl [string trim [$entry_label get]] 

set cap [string trim [ $entry_caption get 0.1 end]] 



#puts " symbol = $sym° 
#puts - label = $lbl- 
#puts * caption = $cap" 

20 

set cs_class [string trim [$entry_cs_class get]] 
set cs_tumor [string trim [ $entry_cs_turaor get]] 
set cs_node [string trim [$entry_cs_node get]] 
set cs_jnetastasis [string trim [$entry_cs__metastasis get]] 
25 set cs_note [string trim [ $entry_cs_note get]] 



if {$ivw != ■") { $image_canvas active set inview $ivw } 

if {$cod != { $image_canvas active set code $cod } 

if {$sym != ■") { $image_canvas active set symbol $sym > 

30 if {$lbl != B0 } { $image_canvas active set label $lbl } 

if {$cap != ■"} { $image_canvas active set caption $cap } 



if {$cs_class != ■■} { $image_canvas active set cs_class $cs_class ) 
if {$cs_tumor « = » w } { $image_canvas active set cs_tumor $cs_tumor } 
35 if {$cs_node != ■ ■ } { $image_canvas active set cs_node $cs_node } 

if {$cs_metastasis != "") { $image_canvas active set cs^metastasis $cs_metastasis } 
if {$cs_note != ••) { $image_canvas active set cs_note $csjiote > 



$ en t ry_ invi ew delete 0 end 
40 $entry_code delete 0 end 

$entry_symbol delete 0 end 
$entry_label delete 0 end 
$entry_caption delete 0.1 end 

45 $entry_cs_class delete 0 end 
$ en try_cs_ tumor delete 0 end 
$entry — cs_node delete 0 end 
$entry_cs_metastasis delete 0 end 
$entry_cs_note delete 0 end 

50 

edit_update__view $ns $ivw 



55 proc iat: :app: :dialog_groups { ns } { 
variable DEMOl 



upvar #0 [join [list [namespace current] $ns image_url] ::] image_url 
upvar #0 [join (list [namespace current] $ns image_canvas] ::] image__canvas 

60 

variable DEMOl 
if {$DEM01} { 

tkjnessageBox -type ok -message "This option is not available in the IAT Technology Evaluation. - 
return 

65 } 



set ants [$image_canvas cget -annotations] 
set rv [iat: : dialog : :dialog_edit_groups $ants] 

) 

70 

proc iat: :app: :dialog_borders { ns ) { 



75 



upvar #0 [join [list [namespace current] $ns image_url] ::] image_url 
upvar #0 [join [list [namespace current] $ns image_canvas } ::] image_canvas 



set borders [ $image_canvas cget -borders] 
#puts "borders = $borders* 

set newborders [ iat : : dialog : : dialog_edi t ^borders $borders ] 
if {$newborders == {}} { return } 
80 $image_canvas configure -borders $newborders 

) 



5 } 
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c iat: :app: :app_splash { ns ) { 
variable TRACE 

if {$ TRACE) { puts "iat: :app: :app_splash: $ns* } 

iat::dialog::dialog_doc "MIAT Technology Evaluation* [iat: : var_str_s P lash] 



10 



15 



20 



proc iat : : app : : help_about { ns } { 
variable TRACE 

if ($TRACE) { puts -iat::app::help_about: $ns- } 
variable version 
set str 

append str -Electronic Medical Education Resource Group <EMERG)\n» 
append str -Medical Image Annotation Tool (MI AT or IAT v$version) \n- 
append str - <c) 2001, 2002 University of Utah, SLC UT\n\n- 
append str - Contact s\n- 

append str -Director: patricia.goede@hsc.utah.edu\n- 
append str -Software: jason. lauman@hsc. utah.edu \n- 

tk_messageBox -title -About IAT v$version" -message $str 



25 proc iat: :app: :help_todo { ns } { 
variable TRACE 

if {$TRACE> { puts -• iat :: app: :help_todo: $ns" } 
^ iat:: dialog : :dialog_doc "IAT Documentation: To Do- [iat : :var_str_todo] 

30 

proc iat: :app: :show_console { ns } { 
variable TRACE 

if ($TRACE) { puts -iat: :app::show_console: $ns" } 
console show 

35 } 

proc iat: :app: :dump_ants { ns } { 
variable TRACE 

if {$TRACE> { puts -iat::app::dump_ants: $ns« } 

upvar #0 [join [list [namespace current] $ns image_canvas] ::] image canvas 
^ $xmage_canvas dump annotations 0 y ~ 



40 



proc iat: :app: :dump_svg { ns } { 
45 variable TRACE 

if {$ TRACE} { puts -iat: :app: :dump_svg: $ns» } 

upvar #0 [join [list [namespace current] $ns image_canvas] ;:] image canvas 
$ajnage_canvas dump svg - Vc ^ 

} 

50 

proc iat: :app: :dump_Jceys { ns } { 
variable TRACE 

if {$TRACE> { puts "iat: capp: :dump_keys: $ns« } 

upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image canvas 
55 $image_canvas dump keys y ~ to 

} 

proc iat : : app : : debug_canvas { } { 
variable imageCanvas 
60 $ imageCanvas dump 

iat . canvas . txt 

# Copyright (c) 2001, University of Utah 

# All rights reserved. 
65 # 

# iat . canvas . tcl 

tpackage provide iat. canvas 0.2 

70 namespace eval iat:: canvas { 

variable TRACE 0 
variable id 0 

variable sizes [list 25 50 100 200 400] 
'5 variable point [list 0 0] 

variable ptnum 
variable vertn *" 
variable ptrmode "single- 

80 } 



10 
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proc iat: : canvas : :proc { cname cmd args } { 
variable TRACE 

if {$TRACE) { puts "iat :: canvas :: proc: $cname $cmd $args" ) 

upvar #o [join [list [namespace current] $cname state] ::) state 

upvar #0 [join [list [namespace current] $cname status_label] ::] status_label 

upvar #0 [join [list [namespace current] $cname callback_select] ::] callbacks elect 

upvar #0 [join [list [namespace current] $cname callback__deselect] ::) callback^deselect 

upvar #0 [join [list [namespace current] $cname callback_deselect_server) ::] callback_deselect_server 

upvar #0 [join [list [namespace current] $cname annotations] ::] annotations 



# end create if call from app. . . 
if {$state == "CREATE") { 
15 ant_create_end $ cname 0 0 

) 

switch $cmd { 

-configure" { 
20 foreach {key value) $args { 

switch — $key { 

•-file" { set_file $cname $value ) 

"-image" { set_JLmage $cname $value } f 
"-scale" { set_scale $cname $value ) 
25 "-borders" { set_borders $ cname $ value ) 

"-status" { set status_label $ value ) 
« "-select" { set_select_mode $cname $value ) 
„" -callbackselect " { set callback__select $value ) 
"-callbackdes elect" { set callback_des elect $value ) 
30 "-callbackserver" { set callback_deselect_j3erver $value ) 

} 

) 

) 

"cget" { 

35 #puts "proc = cget: $args" 

switch — [1 index $args 0] { 

"-borders" { return [get_borders $ cname] ) 
"-annotations" { return $annotations ) 
) 

40 } 

■begin" { 

$annotations begin [1 index $args 0] 

) 

"end" { 

45 # do nothing for now 

) 

"active" { 

set rv [$annotations $args] 

return $rv , 

50 > 

■annotations" { 

switch — [1 index $args 0] { 
■make" { 

# arg 2 is indent level 
55 ant_jdeselect $ cname 

set str [make_cmds $cname [lindex $args 2]] 

append str [ $annotations make [lindex $args 1] (expr [lindex $args 2]]] 
return $str 

) 

60 "parse" { 

$annotations parse [lindex $args 1] 

) 

"read_cmds" { 

return [ ant_read_cmds $ cname [lindex $args 1]) 

65 ) 

■paste" [ 

click_reset $cname 

$annotations parse [lindex $args 1) 

$annotations draw all 

70 ) 
) 

if {$state — "THUMB") { 

clicK_reset_ thumbnail $ cname 
) else { 

75 click_reset $cname 

) 

) 

"borders* { 

set_borders $ cname $args 

80 ) 

"close" < 



10 



15 



20 



25 



30 
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return [close $cname] 



"create" { 

for each {key value} $args { 
switch — [1 index $args 0] { 

"roi" { return f tool_cr eate_s tar t $cname $value] } 
•pointer - { return [ant_create__pointer_start $cname $value] } 
"symbol" { return [ant_create__symbol $cnamej } 



} 



} 



"delete" { 

switch — [lindex $args 0] { 
■symbol" { return [ant._delete__symbol $cname] } 
"active" { return [ant__delete $cname) } 
> 

destroy" { 

return [widget_destroy $cname] 

image" { 

return [ant_jmake_image $cname] 

make„cmds ■ { 

return [ ant_make_cmds $cname] 



'move" { 



switch 
} 



- [lindex $args 0] { 

"active" { return [ant_move $cname] } 



35 



40 



45 



50 



55 



"redraw" { 

return £ redraw_image $cname] 

} 

•postscript" { 

return [ant_make__ps $cname [lindex $args 0]) 

) 

"pointer" { 

switch — [lindex $args 03 { 

"style" { return [ant_ptr_style $cname3 } 
■pin- { return [ant_ptr_pin $cname] } 
"symbol" { return [ant_ptr_symbol $cname] } 



> 



} 

"svg* { 

return [ant_make_svg $cname) 

} 

"dump" { 

switch — [lindex $args 0) { 

"annotations* { return [dump_annotations $cname) } 
■keys" { return [dump_keys $cname] } 
"svg - { return [dump_svg $cname] > 

) 

) 

default { 
} 



60 



return 



65 proc iat: : canvas ;: create { path } { 
variable TRACE 

if {$TRACE} { puts " iat :: canvas :: create : $path* } 
variable id 
variable sizes 

70 

if <$path == "."} { set path } 
set wid [incr id] 

set w [ScrolledWindow $path.w$wid -relief sunken -borderwidth 2] 
pack $w -side top -anchor nw -fill both -expand yes 
75 set path $w 

set f [ScrollableFrame ($path getframej.f -areawidth 0 -areaheight 0] 
pack $f -side top -anchor nw -fill both -expand yes 
set path $f 



set c [canvas [$path getframe] .c -width 2 -height 2 -borderwidth 2 -background gray] 
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$w setwidget $f 

pack $c -anchor nw -fill both -expand yes 

5 set ns [namespace current] : :canvas$wid 

namespace eval $ns { 
variable widget 

variable canvas 
variable state NONE 
10 variable select_jnode annotation 

variable filename 

variable images 
variable image * n 
variable annotations 
15 variable percent 100 

variable borderL 0.005 
variable borderT 0.005 
variable borderR 0.005 
variable borderB 0.005 
20 variable borderColor black 



variable status_label " * 
variable callback_select "noop" 
variable callback_deselect "noop B 
25 variable callback_deselect_server "noop" 



foreach size $iat :: canvas :: sizes { set images ($size) *."..} 



) 

30 upvar #0 [join [list 

upvar #0 [join [list 

upvar #0 [join [list 



$ns widget] : : ] widget 
$ns canvas] : : ] canvas 
$ns annotations] ::] annotations 



set widget $w 
35 set canvas $c 

set annotations [iat: : ant: : create -canvas $c -cmdcanvas [namespace current] : :canvas$wid ] 
#puts " annotations = $annotations" 

set wcmd "proc [namespace current] :: canvas $wid { cmd args } {eval [namespace current] : :proc 
40 canvas $wid \$cmd \$args}" 

namespace eval : : $wcmd 



# default behavior it to pan it. 

#bind $c <ButtonPress-l> "[namespace current 3 toolStartPan $f %W %x %y" 
45 #bind $c <Buttonl-Motion> "[namespace current] ; :toolDoPan $f %W %x %y" 

return [namespace current] :: canvas $wid 



50 proc iat :: canvas :; thumbnail { path } { 
variable TRACE 

if {$TRACE> { puts "iat: : canvas :: thumbnail: $path" } 
variable id 
variable sizes 

55 

if {$path == "."} { set path } 
set wid [incr id] 

set w [frame $path.w$widj 
60 pack $w -side top -anchor nw -fill both -expand yes 
set path $w 



set c [canvas $path.c -width 2 -height 2 -borderwidth 2 -background gray] 
pack $c -anchor nw -fill both -expand yes 

set 1 [label $path.l -text "■] 

pack $1 -anchor nw -fill x -expand yes 



set ns [namespace current] :: canvas $wid 
70 namespace eval $ns { 

variable widget 

variable canvas 

variable state NONE 

variable select_jooode annotation 
75 variable filename 

variable images 

variable image "* 

variable annotations 

variable percent 100 
80 variable borderL 0.10 

variable borderT 0.10 
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variable borderR 0.10 
variable borderB 0.10 
variable borderColor red 



5 variable status_label 

variable callback^select "noop" 
variable callback_deselect "noop" 
variable callback_deselect_server "noop" 

10 foreach size $iat :: canvas :: sizes { set images ($size) ) 



} 

upvar #0 [join [list $ns widget] ::] widget 

upvar #0 [join [list $ns canvas] ::] canvas 

15 upvar #0 [join [list $ns state] ::] state 

upvar #0 [join [list $ns status_label] ::] status_label 

upvar #0 [join [list $ns annotations] ::] annotations 



set widget $w 
20 set canvas $c 

set status_label $1 

set annotations (iat: : ant: : create -canvas $c -cmdcanvas [namespace current] :: canvas $wid ] 
#puts " annotations = $anno tat ions " 

25 set wcrad "proc [namespace current] :: canvas $wid { cmd args } {eval [namespace current] : :proc canvas$wid 

\$cmd \$args}" 

namespace eval : : $wcmd 

# default behavior it to pan it . . . 
30 #bind $c <ButtonPress-l> •[namespace current] : -.toolStart Pan $f %W %x %y" 

#bind $c <Buttonl-Motion> "[namespace current] : :toolDoPan $f %W %x %y a 

#clicK_reset_thumbnail canvas $wid 
set state THUMB 

35 

return [namespace current] :: canvas $wid 

} 

proc iat: : canvas ; :widget_des troy { ns } { 
40 variable TRACE 

if {$TRACE} { puts "iat: : canvas : :widget_des troy: $ns" ) 
variable id 
variable sizes 

45 upvar #0 [join [list [namespace current] $ns widget] ::] widget 

pack forget $widget 
:: destroy $widget 

> 

50 

proc iat : : canvas : : close { ns } { 
variable TRACE 

if { $TRACE) { puts " iat :: canvas :: close : $ns" > 



55 variable sizes 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns image] ::] image 

upvar #0 [join [list [namespace current] $ns images] ::] images 

60 upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 



$annotations close 

foreach size $sizes { 
65 if ($images($size) !- ( 

image delete $ images ($size) 

) 

set images ($size) 

> 

70 

$ canvas configure -background black 
$ canvas configure -width 2 
$ canvas configure -height 2 

75 > 

proc iat : : canvas : : dump { cname } { 

upvar #0 [join [list [namespace current] $ cname canvas] ::] canvas 
upvar #0 [join [list [namespace current] $ cname image] ::] image 
80 upvar #0 [join [list [namespace current] $ cname images] ::] images 

upvar #0 [join [list [namespace current] $cname percent] ::] percent 
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puts "canvas = $canvas" 

puts "image = $ image" 

puts "images = (array get images] " 

puts "percent = $percenf 

5 } 

proc iat: : canvas : :noop { args > ( 
variable TRACE 

if {$TRACE} { puts "NOOP: $args" ) 

10 } 

proc iat: : canvas : ;set_file { cname file > { 

upvar #0 [join [list (namespace current] $cname filename] ::] filename 

15 set filename $file 

set img [image create photo -file $filej 
set_JLmage $ cname $img 

} 

20 proc iat :: canvas :: set_select_jmode { ns mode } { 
variable TRACE 

if {$ TRACE} { puts "iat: : canvas : :set_select__mode: $ns $mode" } 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 
25 upvar #0 [join [list tnamespace current] $ns select_mode] ::] select_jnode 

upvar #0 (join [list [namespace current] $ns state] ::] state 

set reselect 0 
set key active 
30 if {$state == "ANT" } { 

set key [$annotations get key] 

set reselect 1 

} 

35 click_reset $ns 

if ($mode == "edit") ( 

set select__mode edit 
} else { 

40 set select_mode annotation 

) 

$anno tat ions configure -select $mode 

if {$reselect> { 
45 ant__select $ns key$key 

} 

) 

50 proc iat :: canvas :: redraw_image { ns > { 
variable TRACE 

if { $ TRACE } { puts "iat: : canvas : :redraw_image: $ns" ) 

upvar #0 [join [list [namespace current) $ns state] ::) state 
55 upvar #0 (join [list [namespace current) $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns image] ::] image 

upvar #0 (join (list [namespace current) $ns images) ::] images 
upvar #0 (join [list [namespace current] $ns annotations] ::] annotations 
upvar #0 [join [list [namespace current] $ns borderL] : : ] borderL 
60 upvar #0 [join (list [namespace current) $ns borderT] : : ] borderT 

upvar #0 [join [list [namespace current] $ns borderR] ::] borderR 

upvar #0 [join [list [namespace current] $ns borderB] ::] borderB 

upvar #0 [join [list [namespace current) $ns borderColor] ::] borderColor 

65 set ix [image width $ image] 

set iy [image height $image] 

# b = border 

set bL (expr round ($ix * $borderI») ] 
70 set bT (expr round ($iy * $borderT) ] 

set bR (expr round ($ix * $borderR) ] 
set bB [expr round ($iy * $borderB) ] 

click__reset $ns 
75 $anno tat ions erase all 

$canvas delete image 
#$canvas delete border 



80 $canvas configure -background $borderColor 

$canvas configure -width [expr $ix + ($bl* + $bR) ] 
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$canvas configure -height [expr $iy + ($bT + $bB) ] 

$ canvas create image 0 0 -anchor nw -image $ image -tags [list image] 
$ canvas coords image $bL $bT 

$annotations configure -offset [list $bL $bT] -size [list $ix $iy] 
$annotations draw all 
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10 



#if {$state 



■THUMB-} { click_reset_thumbnail $cname } 



proc iat : : canvas : : get ^border s { ns } { 
15 variable TRACE 

if { $TRACE } { puts ■ iat : : canvas : : get Jborders : 



20 



upvar #0 [join [list [namespace current] 

upvar #0 [join [list [namespace current] 

upvar #0 [join (list [namespace current] 

upvar #0 [join [list [namespace current] 

upvar #0 [join [list (namespace current] 



$ns- } 

$ns border L] 
$ns borderT] 
$ns borderR] 
$ns borderB] 



$ns bordercolor] 



borderL 
borderT 
borderR 
borderB 

: : ] borderColor 



25 



30 



} 



#set x : : canvas 

#set x [namespace current] : :$cname$x 

#set c (set $x] 

return [list $borderL $borderT $borderR $borderB $borderColor] 



proc iat :: canvas :: set_Jborders { cname 1st } { 
variable TRACE 

if {$TRACE} { puts ■ iat :: canvas :: setjborders : $cname $lst" } 

35 upvar #0 [join [list [namespace current] $cname borderL] 

upvar #0 [join [list [namespace current] $ cname borderT] 

upvar #0 [join (list [namespace current] $ cname borderR] 

upvar #0 (join [list [namespace current] $ cname borderB] 



40 



J borderL 
] borderT 
] borderR 
] borderB 



upvar #0 (join [list (namespace current] $cname borderColor] ::] borderColor 



set x : : canvas 

set x [namespace current] i 

set c [set $x] 



: $cname$x 



45 



50 



set borderL [lindex $lst 0] 
set borderT [lindex $lst 1] 
set borderR [lindex $lst 2] 
set borderB [lindex $lst 3] 
set borderColor [lindex $lst 4] 

redraw_image $ cname 



proc iat: : canvas : :set_image { cname img } { 
55 variable TRACE 

if { $TRACE > { puts * iat :: canvas :: set_iznage : $cname $img" } 
variable sizes 



60 



65 



70 



upvar #0 [join [list [namespace current] $cname canvas] ::] canvas 
upvar #0 [join [list [-namespace current] $cname state] state 
upvar #0 [join [list (namespace current] $ cname image] ::] image 

upvar #0 [join [list [namespace current] $cname images] ::] images 
upvar #0 [join [list (namespace current] $ cname percent) ::) percent 

foreach size $sizes { 

if {$images($size> != ■■> ( 

image delete $ images ($size) 

) 

set images ($size) 



75 



set image $img 

set images (100) $img 

# new image set to current scale., 
set_scaie $ cname $percent 



80 



click^reset $cname 



proc iat : : canvas : : set__scale { cname newp } { 
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variable TRACE 

if {$TRACE} { puts "iat: : canvas : :set_scale: $cname $newp" } 

upvar #0 [join (list [namespace current] $cname canvas) ::] canvas 

5 upvar #0 [join [list [namespace current] $cname image] ::J image 

upvar #0 [join [list [namespace current] $cname images) ::) images 

upvar #0 [join [list [namespace current] $cname percent] ::) percent 

set percent $newp 
10 if {$ images ($per cent) == ■ ■ } { 

set srclmg $images(100) 
set newlmg [image create photo] 
if {$percent == 100} { 

# copy 

15 $newlmg copy $srclmg 

) elseif {$percent > 100} { 

# zoom 

set n [expr round ($per cent/ 100 ) ] 
$newlmg copy $ srclmg -zoom $n 
20 } else { 

# subsample 

set n [expr round { 100 / $percent ) ) 

$newlmg copy $ srclmg -subsample $n -shrink 

) 

2 5 set images ( $percent ) $newlmg 
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30 } 



set image $ images ($per cent) 
redraw_image $cname 



35 



40 



proc iat: : canvas : :ant_deselect { cname } { 
variable TRACE 

if { $TRACE } { puts ■ iat : : canvas : : ant_deselect : 



$ cname" } 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join [list [namespace current] $ cname canvas] ::] canvas 

[join [list [namespace current] $ cname image] ::] image 

[join [list [namespace current] $cname annotations] ::] annotations 

[join [list [namespace current] $cname state] ::] state 

[join [list [namespace current] $cname callback_deselect] ::] callbac)t_deselect 



$ canvas dtag SELECTED 

eval $callback_deselect 
4 5 $annotations save 

$annotations deselect 



50 



> 



proc iat: : canvas : :clic)c_reset_ thumbnail { cname } { 
variable TRACE 

if ($TRACE) { puts ° iat :: canvas :: click^reset^thumbnail : $cname" } 



55 



60 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join [list [namespace current] $cname canvas] ::] canvas 

[join [list [namespace current] $ cname imagej ::] image 

[join [list [namespace current] $cname state) ::] state 

[join [list [namespace current) $ cname status_label] :;] s ta tu s__l abe 1 

[join [list [namespace current] $ cname filename] ::J filename 

[join [list (namespace current] $cname callbacK_select] : : ] callback_select 



#ant_deselect $ cname 



65 



70 



75 } 



bind $ canvas <Button-l> $ callbacks elect 

bind $canvas <Buttonl-Motion> { iat :: canvas :: noop thumbnail %x %y} 
bind $canvas <Double-Button-l> * iat :: canvas :: noop thumbnail %x %y" 
bind $canvas <ButtonRelease-l> • iat :: canvas :: noop thumbnail %x %y* 
$ canvas bind image <Double~Button-l> $callbacku9elect 
$canvas bind ant <Button-l> $callback_select 
# will need pointer and label here as well . . . 

if <$status_label ! = ■■) { $status_label configure -text [file tail [file rootname $filename]] } 
set state THUMB 



80 



proc iat: : canvas : :click_reset_server { cname ) { 
variable TRACE 

if ($TRACE) { puts "iat: : canvas: :click_ reset_server : $ cname - } 

upvar #0 [join [list [namespace current] $cname callback__deselect_server) : : ] callback__deselect_server 
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click_reset $cname 

eval $callback_deselect_server 

} 

5 

proc iat: : canvas : :click_reset { cname } { 
variable TRACE 

if {$TRACE} { puts "iat: : canvas : :click_reset: $cname" } 

10 upvar #0 [join [list [namespace current] $cname canvas] ::] canvas 
upvar #0 [join [list [namespace current] $cname image] ::] image 
upvar #0 [join [list [namespace current) $cname state] ::) state 
upvar #0 [join [list [namespace current] $cname status_label] ::] status_label 

15 if {$state == "THUMB" } { click_reset_thumbnail $cname; return } 

ant_deselect $ cname 

bind $ canvas <Button-l> {iat: : canvas : :noop click_reset %x %y) 

20 bind $ canvas <Buttonl-Motion> {iat :: canvas : :noop click_reset %x %y) 

bind $ canvas <Double-Button-l> "iat canvas : :click__reset_server $cname" 
bind $canvas <ButtonRelease-l> " iat :: canvas : :noop click_reset Bl -Release $cname %x %y" 
•$canvas bind image <Double-Button-l> " iat :: canvas :: click_reset_server $ cname" 
$canvas bind ant <Button-l> "iat canvas : :click_ant $ cname %x %y" 

25 # will need pointer and label here as well — 



if {$status_label != ■■} { $status_label configure -text "Ready. " ) 
set state READY 



30 } 



35 



proc iat : : canvas : : click__ant { ns x y ) { 
variable TRACE 

if { $TRACE> { puts "iat: : canvas : :click__ant: $ns $x $y" } 
variable point 

upvar #0 [join [list (namespace current) $ns canvas] canvas 
upvar #0 [join [list [namespace current] $ns state] : : J state 



4 0 #bind $ canvas <Button-l> {} 

#bind $canvas <Double-Button-l> • iat ;: canvas :: click_reset $ns" 
#$canvas bind handle <Button-l> "iat :: canvas : :click_handle $ns %x %y° 



45 



set point [list $x $y) 



if <$state == "CREATE" } { 

ant_create_vertex $ns $x $y 
) elseif {$state == "MOVE") { 

# don 1 t deselect . . . 
50 } else { 

an t__ deselect $ns 

ant_select_at $ns $x $y 

#puts " HERE! » ! " 

#bind $ canvas <Double-Button-l> "iat: : canvas : :noop ant_click_reset $cname" 
55 #$canvas bind image <Double-Button-l> "iat: : canvas : :noop ant_click__reset $cname" 

> 



#bind $canvas <Buttonl-Motion> ■ iat :: canvas :: an t_drag_ant $ns %x %y" 



60 ) 



65 



proc iat : : canvas : : clicK_handle { ns x y ) { 
variable TRACE 

if { $TRACE} { puts "iat: : canvas : :click_handle: $ns $x $y" ) 

variable point 
variable ptnum 

variable vertn 

70 upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 (join [list [namespace current] $ns annotations) : : 3 annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 

switch $ state { 
75 -READY" ( 

#puts "ClickHandle: do nothing (no polygon selected)" 

) 

"ANT" { 

#puts "ClickHandle: select handle" 



80 



# vertex is in a different polygon 
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#set point [isPointlnPoints $x $y $points] 
#if {$point < 0J { 

# sector is in a different polygon 

#set point [isPointlnPoints $x $y $sectors] 
#if {$point < 0) { return } 

#} 

set point (list $x $y] 

$canvas addtag HANDLE closest $x $y 3 

$canvas itemconf igure HANDLE -fill red -outline black 

set tags t$canvas gettags HANDLE] 
set type "none" 

if {(lsearch $tags vertex] > -1} { set type vertex } 
if {[lsearch $tags sector] > -1} { set type sector > 
if {[lsearch $tags symbol) > -1) { set type symbol } 
if {[lsearch $tags tail] > -1} { set type tail } 
if {[lsearch $tags head] > -1} { set type head } 
if {[lsearch $tags ptrvert] > -1} { 
set type ptrvert 

set vidx [lsearch -regexp $tags {vx{\d+)}] 
set tag [lindex $tags $vidx] 
regexp {vx(Vd+)> $tag m vertn 

) 

if {[lsearch $tags ptrsect] > -1} { 
set type ptrsect 

set vidx [lsearch -regexp $tags {sx(\d+)}] 
set tag [lindex $tags $vidx] 
regexp {sx<\d+)> $tag m vertn 

} 

if {$type "none") { error "Handle is not a head, tail, vertex, sector or symbol! 

set nidx [lsearch -regexp $tags {num(\d+)}] 
set tag [lindex $tags $nidx] 
regexp {num(\d+)J $tag m ptnum 
#puts " ptnum = $ptnum n 



set state NONE 



# have to bind things that are _not_ the handle . . . 

$ canvas bind border <Button-l> "iat : .-canvas: :ant_jnove__$ type $ns %x %y" 
$ canvas bind image <Button-l> "iat :: canvas : :ant_move_$ type $ns %x %y" 
$ canvas bind ant <Button-l> "iat :: canvas : :ant_move_$ type $ns %x %y° 
$ canvas bind segment <Button-l> "iat : .-canvas: : an t_move_$ type $ns %x %y" 
bind $ canvas <Buttonl-Motion> "iat: : canvas : :ant_drag_$ type $ns %x %y" 
tputs " HERE!!" 

bind $canvas <Double-Button-l> "iat : .-canvas: :noop click_reset $ns" 

set state [string toupper $type] 
) 

"VERTEX" { 

$canvas addtag DELHANDLE closest $x $y 3 
set tags [$canvas gettags DELHANDLE) 
$ canvas dtag DELHANDLE 

set nidx [lsearch -regexp $tags (num(\d+)}] 

set tag [lindex $tags $nidx] 
regexp {num<\d+)> $tag m tmpnum 
fiputs " ptnum = $ptnum" 

#puts ■ tmpnum = $ tmpnum" 

if {$ tmpnum == $ptnum> { 

ant_delete_vertex $ns $x $y 

} 

> 

"SECTOR" { 

ant_insert_vertex $ns $x $y 

> 

•HEAD_old" { 

# moving the head is handled through the pointer tail now. . . 
$canvas addtag DELHANDLE closest $x $y 3 
set tags [$canvas gettags DELHANDLE] 
$ canvas dtag DELHANDLE 

set nidx (lsearch -regexp $tags {num(\d+)}] 
set tag [lindex $tags $nidx] 
regexp {num{\d+)> $tag m tmpnum 



$ annotations move head $ tmpnum auto 
ant_select $ns active 



} 

"TAIL" { 

$canvas addtag DELHANDLE closest $x $y 3 



WO 2004/057439^^ - 88 - %J PCT/US2003/0 17138 

Appendix 2 

set tags t$canvas gettags DELHANDLE) 
$ canvas dtag DELHANDLE 

set nidx [lsearch -regexp $tags (num(\d+)}J 
set tag [lindex $tags $nidx) 
5 regexp {num(\d+)} $tag m tmpnum 

$annotations delete pointer $ tmpnum 
ant_select $ns active 

10 } 

"PTRVBRT* { 

$canvas addtag DELHANDLE closest $x $y 3 

set tags ($canvas gettags DELHANDLE] 

$canvas dtag DELHANDLE 
15 set nidx U search -regexp $tags {vx<\d+)}] 

set tag [lindex $tags $nidx) 

regexp {vx(\d+)> $tag m tmpn 

if {$tmpn == $vertn> { 

ant_delete_jptrvert $ns $ptnum $vertn 
20 ant_select $ns active 

> 

> 

" PTRSECT * { 

ant__insert_ptrvert $ns $x $y 

25 } 

■ SYMBOL" { 

#roiSymbolMove $x $y 

} 

default { 

30 iat: : canvas : :noop click__handle $x $y 

} 

} 

} 

35 proc iat :: canvas :: toolStartPan { w c x y } { 
variable TRACE 

if {$TRACE> { puts "iat: : canvas :: toolStartPan: $w $c $x $y" } 
variable panX 
variable panY 
40 variable panSX 
variable panSY 



45 



set panX $x 
set panY $y 

set xv [$w xview] 

set xd [expr [lindex $xv 1] - [lindex $xv 0]] 
set panSX [expr $xd / 10 J 

50 set yv [$w yview] 

set yd [expr [lindex $yv 1] - [lindex $yv 0] ] 
set panSY [expr $yd / 10] 

} 

55 proc iat :: canvas :: tool Do Pan { w c x y ) { 
variable TRACE 

if {$TRACE> { puts "iat: : canvas : rtoolDoPan: $w $c $x $y" } 
variable panX 
variable panY 
60 variable panSX 
variable panSY 



65 



set dx (expr $panX - $x] 
set dy [expr $panY - $y] 

if {$dx > 10} {$w xview moveto [expr [lindex [$w xview] 0] + $panSX] 

} elseif {$dx < 10} ($w xview moveto [expr [lindex [$w xview] 0] - $panSX] } 



if {$dy > 10} {$w yview moveto [expr [lindex [$w yview] 0] + $panSY] 
70 } elseif {$dy < 10} [$w yview moveto [expr [lindex ($w yview] 0] - $panSY] } 

} 

proc iat: : canvas : :tool__create_start { cname kind } { 
75 variable TRACE 

if {$TRACE} { puts ■ iat :: canvas :: tool_start_create_ant : $kind" } 

upvar #0 (join (list (namespace current) $cname canvas] ::] canvas 

upvar #0 [join (list tnamespace current) $ cname image] ::] image 

80 upvar #0 [join [list [namespace current) $cname annotations) ::] annotations 

upvar #0 [join [list [namespace current] $cname state] ::] state 
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upvar #0 [join [list [namespace current) $cname status_label) ::] status__label 

if {$state == -CREATE- > { 

ant__create_end $cname 0 0 

5 } 

click_reset $cname 

bind $ canvas <Button-l> "iat :: canvas : :ant_cr eat e.vertex $cname %x %y" 
10 bind $ canvas <Double-l> "iat :: canvas : : anther eat e_end $cname %x %y" 

$canvas bind ant <Button-l> "iat: : canvas : :noop tool_create_start Button- 1 $cname %x %y" 



$annotations create roi $kind 
set state CREATE 



15 



switch $kind { 

"point" { $status_label configure -text "Click 1 or more points. Double-click for last point 
and end create." } 

"edge" { $status_label configure -text "Click 2 or more points to create edge. Double-click 

20 for last point and end create." } . ^, , . , 

■area" { $status_label configure -text "Click 3 or more points to create area. Double-click 

for last point and end create . " } 
■circle" { } 
"rectangle" { } 

25 default { $status__label configure -text "Unknown create kind..." } 

) 

#if {$kind « "group") { 
30 # roiCreateEnd 0 0 

#) else { 

# set inCreate 1 
#> 

) 

35 

proc iat: : canvas : tan t_create_end { cnaroe x y ) { 
variable TRACE 

if {$TRACE> { puts "iat: : canvas : : ant_create_end : $x $y" ) 

40 upvar #0 [join [list [namespace current) $cname canvas] ::] canvas 

upvar #0 [join [list [namespace current) $cname image] ::] image 
upvar #0 [join [list [namespace current] $cname annotations] : : ] annotations 
upvar #0 [join [list [namespace current] $cname state] ::] state 
upvar #0 [join [list [namespace current] $cname status_label] ::] status_label 

45 

bind $canvas <Button-l> {} 

bind $ canvas <Double-Button-l> {> 

$ canvas bind ant <Button-l> { ) 

50 # NOTE: Don't use click_reset because is deselects which saves annotation — 

# don't allow polygons with less than 3 points. .. 
set npts 0 

switch [$anno tat ions kind active) { 
55 "group" { set npts 0 } 

"point" { set npts 1 ) 

■edge- { set npts 2 ) 

■area" { set npts 3 ) 

■rectangle" { set npts 2 ) 
60 "circle" { set npts 2 ) 

if {[llength [ $annotations points active]] < $npts) { 
$canvas delete handle 
$anno tat ions delete active 
65 set state NONE 

return 

# post-process points if creating rectangle or circle... 
if { [$annotations kind] == "rectangle" > { 

70 if {[llength [ $annotations points active]) != 2) ( 

$canvas delete handle 
$annotations delete active 
set choice [ tk_messageBox \ 

-title "Rectangle Problem" \ 
75 -message -Rectangle must be specified with top-left and bottom-right points." \ 

-icon warning \ 
-type ok ] 

return 
> 

8 0 roiCreateEndRectangle 

) elseif { [$annotations kind) == "circle") { 
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if ([llength [$annotations points active]] != 2} { 
$canvas delete handle 
$annotations delete active 
iat: :roi: :roiDelete 
5 set choice [tk_messageBox \ 

-title "Circle Problem" \ 

-message "Circle must be specified with center and radius points." \ 
-icon warning \ 
-type ok ] 

10 return 
} 

roiCreateEndCircle 

) 

15 # without state reset infinite loop occurs... 
set state "ANT" 

$ annotations save 
#$annotations draw active 
#click_reset $cname 
20 ant_select $cname active 

) 

proc iat : : canvas : : ant_create_vertex { cname x y } { 
25 variable TRACE 

if {$TRACE} { puts ■ iat :: canvas : : ant_create_ver tex : $x $y" } 

upvar #0 [join [list [namespace current] $cname canvas] ::] canvas 

upvar #0 [join [list [namespace current] $cname image] ::] image 

30 upvar #0 [join [list [namespace current] $cname annotations] ::] annotations 

upvar #0 [join [list [namespace current] $cname state] ::] state 

$annotations create vertex [list $x $y] 
$anno tat ions erase active 
35 $annotations draw segments 

$ anno tat ions draw vertexs 

) 

4 0 proc iat: : canvas : :ant_create_pointer_s tart { ns num } { 
variable TRACE 

if ( $TRACE } { puts "iat: : canvas : : ant_create_pointer : $ns $num" > 

variable head 
4 5 variable ptrmode 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
upvar #0 (join [list [namespace current] $ns annotations] ::] annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 



50 



if ($state != •ANT"} { return } 



set ptrmode single 

if ($num == "multiple" } { set ptrmode multiple > 
55 set head auto 

bind $canvas <Double-l> "iat :: canvas : :click_reset $ns %x %y" 

bind $ canvas <Button-l> " iat :: canvas :: an t_create_pointer_tail $ns %x %y" 

$ canvas bind handle <Button-l> ■ iat :: canvas :: ant_create_po interplead $ns %x %y" 

60 

> 

proc iat: : canvas : :ant_create_jpointer_tail ( ns x y } { 
variable TRACE 

65 if ($TRACE) { puts "iat: : canvas : : ant_create_pointer_tail : $ns $x $y" } 

variable head 
variable ptrmode 

70 upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 (join [list (namespace current] $ns annotations] : : 3 annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 

# fix. . . if head and x,y are same then handle was clicked. . . 
75 if {(lindex $head 0] == "head") { set head [lindex $head 1]; return ) 



$annotations create pointer $head [list $x $y] {} 



if {$ptrmode == "multiple" } { 
80 bind $canvas <Double-l> "iat: : canvas : ^lick^reset $ns %x %y" 

bind $canvas <Button-l> "iat :: canvas : :ant_create_pointer_tail $ns %x %y" 
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$canvas bind handle <Button-l> " iat :: canvas :: ant_create_pointer_head $ns %x %y" 

) else { 

bind $canvas <Double-l> "iat: : canvas : :click_reset $ns %x %y" 
bind $canvas <Button-l> ■ iat :: canvas :: noop pointer__tail $ns %x %y* 

) 

ant_select $ns active 



10 ) 



15 



proc iat: : canvas :: an t_create_pointer_head { ns x y > { 
variable TRACE 

if {$TRACE} { puts "iat: : canvas :: an t_create_pointer_head: $ns $x $y" > 
variable head 



upvar #0 [join [list [namespace current] $ns canvas) ::] canvas 
upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 
20 upvar #0 [join [list [namespace current] $ns state] state 

$canvas addtag DELHANDLE closest $x $y 3 
set tags [$ canvas get tags DELHANDLE] 
$ canvas dtag DELHANDLE 
25 set nidx [Isearch -regexp $tags {num<\d+)}] 

set tag [1 index $tags $nidx] 
regexp {num(\d+)> $tag m tmpnum 



30 



set head [list head $ tmpnum J 



) 



proc iat : : canvas : : ant_ptr_symbol { ns } { 
variable TRACE 

35 if { $TRACE } < puts "iat: : canvas: ran t_ptr_symbol: $ns" > 

variable head 
variable ptnum 

40 upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list (namespace current] $ns annotations) ::] annotations 
upvar #0 [join [list [namespace current) $ns state] ::] state 

45 if {$state == "TAIL") { 

#puts " state == TAIL" 

$annotations pointer symbol $ptnum toggle 
} else { 

# do nothing . . . click^reset ! 

50 ) 

click_reset $ns 

an t_s elect $ns active 



55 } 



60 



proc iat: : canvas : : ant_ptr_style { ns ) { 
variable TRACE 

if {$TRACE} { puts *iat: : canvas ;: an t_ptr_style; $ns" ) 

variable head 
variable ptnum 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
65 upvar #0 [join [list [namespace current] $ns annotations] ::) annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state == "TAIL" } { 
70 #puts " state == TAIL" 

$ anno tat ions pointer style $ptnum toggle 
} else { 

# do nothing . . . clicXjreset ! 

) 



75 



click_reset $ns 
ant_select $ns active 



80 

proc iat : : canvas : : ant_ptr_pin { ns ) { 
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variable TRACE 

if {$TRACE} { puts " iat :: canvas :: an t_ptr_pin: $ns" ) 

variable head 
variable ptnum 



PCT/US2003/017138 



10 



upvar #0 [join [list 
upvar #0 [join [list 
upvar #0 [join [list 



[namespace current] 
(namespace current) 
[namespace current] 



$ns canvas] ::] canvas 

$ns annotations] :.*] annotations 

$ns state] : : ] state 



if {$state == "TAIL* } { 

#puts • state == TAIL" 
$annotations pointer pin $ptnum toggle 
15 } else { 

# do nothing. . . click__reset ! 

> 



20 



click_reset $ns 
ant_select $ns active 



} 



proc iat : : canvas : : ant_select { ns tag > { 
25 variable TRACE 

if { $TRACE } { puts "iat: : canvas :: an t_select: $ns $tag" > 



30 



35 



40 



45 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list (namespace current] $ns annotations) :.-] annotations 

upvar #0 [join [list [namespace current] $ns select_mode] select_mode 

upvar #0 [join [list [namespace current) $ns state] ::) state 

upvar #0 [join [list [namespace current] $ns callbac)<_.select] ::J callback_select 

set key active 

if ($tag == "active") { 

set key [ $annotations get key) 



} else { 



) 



set tags C$canvas get tags $tag] 
#puts "tags of $tag = $tags" 

set keyidx [Isearch -regexp $tags {key(\d+))] 

if {$keyidx < 0) {puts "ERROR: ant_select: $tags" 

set tag [lindex $tags $keyidx] 

regexp {key(\d+) ) $tag m key 

$ canvas add tag SELECTED with tag $tag 



return ) 



50 



55 



60 



65 



70 



# If there are no canvas tags then it is a non -visual annotation (group) 

$canvas bind border <Button-l> "iat: : canvas : moop ant_select border $ns %x %y" 
$ canvas bind image <Button-l> "iat: : canvas :: noop ant_select image $ns %x %y" 
$ canvas bind ant <Button-l> ■ iat :: canvas :: noop ant_select ant $ns %x %y" 
$ canvas bind segment <Button-l> " iat :: canvas :: click_ant $ns %x %y" 
if {$select_mode == "edit") { 

$ canvas bind handle <Button-l> "iat :: canvas : :click_handle $ns %x %y" 
#bind $canvas <Buttonl-Motion> • iat :: canvas :: noop ant_select Bl -Motions $ns %x %y" 
#bind $canvas <ButtonRelease-l> "iat: : canvas :: noop ant_select Bl-Release $ns %x %y" 
} else { 

$canvas bind handle <Button-l> ■ iat :: canvas :: noop ant_select Bl" 

$canvas bind head <Button-l> ■ iat :: canvas :: click_handle $ns %x %y" 

$canvas bind tail <Button-l> "iat: : canvas : :click_handle $ns %x %y" 

#$ canvas bind segment <Buttonl-Motion> ■ iat :: canvas :: an t_drag_ant $ns %x %y" 

#bind $ canvas <Buttonl-Motion> "iat :: canvas : : ant_drag_ant $ns %x %y" 

Test not binding double click here . . . 

#bind $canvas <Double-Button-l> "iat: .-canvas: ;clicx_reset $ns" 



$annotations select $key 
#puts * SELECTED: $key" 

# callback 

eval $callback_select 



75 



set state "ANT" 



proc iat: : canvas : :ant__select_at { ns x y ) { 
variable TRACE 

if ($TRACE) { puts "iat: : canvas : : ant_.se lect_at : $ns $x $y" ) 



80 



variable point 
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upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

set point [list $x $yj 

$canvas delete SELECTED 

$canvas add tag SELECTED closest $x $y 

ant_select $ns SELECTED 



) 



10 proc iat :: canvas :: ant_delete { ns } { 
variable TRACE 

if ($TRACE> { puts -iat: : canvas : :ant_delete: $ns" ) 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
15 upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state != "ANT* } { return } 
set key [$annotations get key] 
20 #puts ■ DELETING: $key" 

ant_deselect $ns 
$annotations erase $key 
$annotations delete annotation $key 
click_reset $ns 



25 } 



30 



proc iat: : canvas :: an t_delete_vertex { ns x y } { 
variable TRACE 

if {$TRACE} { puts "iat: : canvas :: an t_delete_vertex: $ns $x $y" } 

variable point 
variable ptnuro 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
35 upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 



$annotations delete vertex $ptnum 
ant_select $ns active 



40 ) 



45 



proc iat : : canvas : : ant_move { ns } { 
variable TRACE 

if {$TRACE> { puts "iat: : canvas : :ant_move: $ns" } 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
upvar #0 [join [list [namespace current] $ns state] ::] state 



50 



if {$state != -ANT-) { return ) 
set state MOVE 

bind $canvas <Buttonl-Motion> ■ iat :: canvas :: ant_drag_ant $ns %x %y" 

) 

55 

proc iat : : canvas : : ant__drag_ant { ns x y } { 
variable TRACE 

if {$TRACE> { puts 0 iat :: canvas :: ant_drag_ant : $ns $x $y" ) 

60 variable point 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

upvar #0 [join [list [namespace current] $ns state] ::] state 

65 

if {$state == "MOVE" } { 
set state DRAG 

bind $ canvas <ButtonRelease-l> " iat :: canvas ant_drag_ant_end $ns %x %y° 

) 

70 if {$state != "DRAG" } { return } 

set dx [expr $x - [lindex $point 0]] 
set dy [expr $y - [lindex $point 1]] 
$anno tat ions move delta [list $dx $dyJ 
75 set point [list $x $y] 

# This does not change canvas bindings . . . 
$annotations select active 

) 

80 

proc iat: : canvas :: an t_drag_ant_end { ns x y ) { 



WO 2004/05743i^P " 94 " F PCT/US2003/017138 

Appendix 2 

variable TRACE 

if { $TRACE} { puts "iat: : canvas : :ant_drag_ant._end: $ns Sx 5y ) 

upvar #0 [join [list [namespace current] $ns canvas J ::) canvas 
5 upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

upvar #0 [join [list [namespace current] $ns state] ::] state 
bind $ canvas <Buttonl-Motion> - iat :: canvas :: noop ant_drag_ant_end $ns %x %y" 
$annotations select active 
set state "ANT" 
10 #ant_move_vertex $ns $x $y 

) 

proc iat: : canvas : :ant_drag_vertex { ns x y } { 
variable TRACE 

15 if {$TRACE} { puts -iat: : canvas : :ant_drag_vertex: $ns $x $y" } 

variable point 
variable ptnum 

20 upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upV ar #0 [join [list [namespace current] $ns annotations] ::] annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state == •VERTEX" } { 
25 set state DRAG 

bind $canvas <ButtonRelease-l> - iat :: canvas :: ant_drag_vertex_end $ns %x %y 

> 

if <$state != "DRAG" } { return > 

30 $annotations move vertex $ptnum [list $x $y] 

# This does not change canvas bindings — 
$annotations select active 

> 

proc iat: : canvas : :ant_drag_vertex_end { ns x y } { 

variable TRACE . . n . 

if { $ TRACE ] { puts "iat: : canvas: :an t_drag_ver tex_end : $ns $x $y } 
upvar #0 [join [list [namespace current] $ns state] ::] state 
40 set state "VERTEX" 

ant_move_vertex $ns $x $y 

) 

proc iat: : canvas : : ant_move_ver tex { ns x y ) { 
45 variable TRACE ^ . a ^ 

if {$TRACE} { puts "iat: : canvas: rant _move_ver tex : $ns $x ?y } 



50 



variable point 
variable ptnum 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

upvar #0 [join [list [namespace current] $ns state] ::] state 



55 if {$state != "VERTEX" } { return } 



60 



click_reset $ns 

$annotations move vertex $ptnum [list $x $y] 
ant_select $ns active 



proc iat: : canvas : :ant__drag_sector { ns x y } { 
ant_ins er t_ver tex $ns $x $y 
65 clicK_nandle $ns $x $y 

> 

proc iat: : canvas : :antjnove_sector { ns x y } { 
ant_insert_vertex $ns $x $y 

70 } 



75 



proc iat: : canvas : :ant_insert_vertex { ns x y > { 
variable TRACE 

if {$TRACE} { puts "iat: : canvas : :ant_insert_vertex: $ns $x $y" J 

variable point 
variable ptnum 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
80 upvar #0 [join [list [namespace current) $ns annotations) ::] annotations 

upvar #0 [join [list [namespace current) $ns state] ::] state 



* 
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if ($state != -SECTOR") { return ) 



$annotations insert vertex $ptnum [list $x $y] 
ant_select $ns active 



5 

) 



proc iat : : canvas : : ant_drag_tail { ns x y ) { 
variable TRACE 

10 if ($TRACE) { puts "iat: : canvas :: an t_drag_tail: $ns $x $y" } 

variable point 
variable ptnum 

15 upvar #0 [join [list [namespace current] $ns canvas] ::) canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::) annotations 
upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state == "TAIL" } { 
20 set state DRAG 

bind $canvas <ButtonRelease-l> ■ iat :: canvas :: ant_drag_tail__end $ns %x %y" 

) 

if <$state != "DRAG") { return } 

25' $annotations move tail $ptnum [list $x $y] 

# This does not change canvas bindings — 
set rv [$annotations select active] 
#puts " ptnum - $ptnum, rv = $rv" 

if ($rv >= 0} { set ptnum $rv ) 

30 

> 

proc iat :: canvas: ran t_drag__tail_end { ns x y } { 
variable TRACE 

35 if { $TRACE } { puts "iat: : canvas : :ant_drag_tail_end: $ns $x $y" } 
upvar #0 [join [list [namespace current] $ns state] : : ] state 
set state "TAIL" 
antljmove_tail $ns $x $y 

) 

40 

proc iat: : canvas :: an t_move_tail { ns x y } { 
variable TRACE 

if {$TRACE} { puts "iat: : canvas :: an t_move_tail: $ns $x $y" ) 

45 variable point 

variable ptnum 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
upvar #0 [join (list (namespace current] $ns annotations] ::] annotations 
50 upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state != "TAIL") { return ) 

click_reset $ns 
55 $ annotations move tail $ptnum [list $x $y] 

ant_jselect $ns active 

) 

60 proc iat: : canvas : :ant_drag_Jiead { ns x y ) { 
variable TRACE 

if {$ TRACE) { puts "iat: : canvas :: an t_drag_head: $ns $x $y" ) 

variable point 
65 variable ptnum 

upvar #0 [join [list [namespace current] $ns canvas) ::] canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::) annotations 

upvar #0 [join [list [namespace current] $ns state) ::] state 

70 

if <$state == "HEAD" ) { 
set state DRAG 

bind $canvas <ButtonRelease-l> * iat :: canvas :: ant_drag_headL.end $ns %x %y" 

) 

75 if ($state != "DRAG" ) { return ) 

set rv [$annotations move head $ptnum [list $x $y] ] 

# This does not change canvas bindings . . . 
$annotations select active 

80 # puts " ptnum = $ptnum, rv = $rv" 

if ($rv >= 0) { set ptnum $rv } 
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} 

proc iat : : canvas : : ant__drag_head_end { ns x y } { 
variable TRACE 

if ($TRACE) { puts "iat: : canvas : : ant_dragjaead_end : $ns $x $y" > 
5 upvar #0 tjoin [list [namespace current] $ns state] ::] state 

set state "HEAD" 
ant_move_head $ns $x $y 

} 

10 proc iat: : canvas: : ant_move_head { ns x y } { 
variable TRACE 

if {$TRACE} { puts * iat :: canvas :: ant _move_head: $ns $x $y" > 

variable point 
15 variable ptnum 

upvar #0 [join [list [namespace current] $ns canvas] : : ] canvas 
upvar #0 [join [list [namespace current) $ns annotations] ::] annotations 
upvar #0 [join [list [namespace current) $ns state) ::] state 

if {$state • = -HEAD-) { return ) 



20 



click_reset $ns 

$annotations move head $ptnum [list $x $y) 
25 ant_select $ns active 



3 0 proc iat : : canvas : : ant_drag__ptrvert { ns x y ) { 

variable TRACE 

if {$TRACE) { puts "iat: : canvas : :ant_drag_ptrvert: $ns $x $y" } 

variable point 
35 variable ptnum 

variable vertn 

upvar #0 [join [list [namespace current] $ns canvas] : : ] canvas 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

4 0 upvar #0 [join [list [namespace current] $ns state] ::] state 

if {$state == "PTRVERT") { 
set state DRAG 

bind $canvas <ButtonRelease-l> " iat :: canvas :: an t_drag_p trver t_end $ns %x %y" 

45 } 

if {$state • = "DRAG") { return } 

$annotations move ptrvert $ptnum $vertn [list $x $y] 
# This does not change canvas bindings . . . 
50 $anno tat ions select active 

) 

proc iat: : canvas an t_drag_ptrvert_end { ns x y ) { 
55 variable TRACE 

if {$TRACE} { puts "iat: : canvas : :ant_drag_ptrvert_end: $ns $x $y» } 

upvar #0 [join [list [namespace current] $ns state] ::) state 
set state "PTRVERT" 
60 an t_move_p trver t $ns $x $y 

> 

proc iat: : canvas :: ant jnove_jptrvert { ns x y ) { 
variable TRACE 

65 if {$ TRACE) { puts " iat :: canvas :: ant _move_p trver t ; $ns $x $y" ) 

variable point 
variable ptnum 
variable vertn 

70 

upvar #0 [join [list (namespace current) $ns canvas] ::) canvas 

upvar #0 [join [list [namespace current] $ns annotations) ::] annotations 

upvar #0 [join [list [namespace current) $ns state] ::) state 

75 if {$state != "PTRVERT") { return > 

clicks reset $ns 

$annotations move ptrvert $ptnum $vertn [list $x $y] 
ant_select $ns active 

80 
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proc iat: : canvas ; :ant_drag_ptrsect { ns x y } { 
variable TRACE 

if ($ TRACE) { puts "iat: : canvas : :ant_drag_ptrvert: $ns $x $y« } 

5 ant_insert_ptrvert $ns $x $y 

click_handle $ns $x $y 

) 

proc iat : : canvas : : ant_raove_ ptrsect { ns x y } { 
10 variable TRACE 

if ($TRACE) { puts "iat: : canvas :: an t_move_ptrvert : $ns $x $y" } 
ant_insert_ptrvert $ns $x $y 

} 

1 5 proc iat : : canvas : : ant_inser t_ptrvert { ns x y } { 
variable TRACE 

if ($TRACE) { puts ■ iat :: canvas :: ant_inser t_ptrvert : $ns $x $y" } 

variable point 
20 variable ptnum 

variable vertn 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 
25 upvar #0 [join [list [namespace current] $ns state] ::) state 

if ($state l- -PTRSECT") { return } 

$annotations insert ptrvert $ptnum $vertn [list $x $y] 
30 ant_select $ns active 



proc iat : : canvas : : ant_delete_ptrver t { ns ptnum vertn } { 
35 variable TRACE 

if ($ TRACE) { puts "iat: : canvas ; :ant__delete_ptrvert: $ns $ptnum $vertn ,, ) 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 
upvar #0 (join [list [namespace current] $ns annotations] ::) annotations 

$annotations delete ptrvert $ptnum $vertn 
ant_select $ns active 



40 



) 

45 

proc iat : : canvas : : ant_lower ( ns } { 
variable TRACE 

if { $TRACE ) { puts • ia t : : canvas : : an t_lower : $ns ■ ) 

50 upvar #0 [join [list [namespace current] $ns canvas) ::J canvas 

upvar #0 [join [list [namespace current] $ns state] ::] state 

if [$state != "ANT" ) { return ) 

55 $ canvas lower SELECTED 

$canvas raise SELECTED image 



60 



ant_deselect $ns 
click_reset $ns 



> 



proc iat: : canvas : :make_cmds ( ns Ivl ) { 
variable TRACE 

65 if {$ TRACE) { puts "iat: : canvas : :make__cmds: $ns $lvl" ) 
set str ■■ 

#append str -\nbegin canvas \n" 

70 set^lst [get_borders $ns] 
#append str "borders" 

# border percent widths 

#append str ■ [lindex $lst 0] [lindex $lst 1) [lindex $lst 2] [lindex $lst 3)" 

# border color 

75 #append str • (lindex $lst 4]\n" 
set pre [string repeat " * $lvl) 
append str "$pre<canvas>\n" 

append str "$pre <border color=\ " [lindex $lst 4]\" > [lrange $lst 0 3] </border>\n" 
append str °$pre</ canvas >\n" 
80 #append str "end canvas \n\n" 



} 
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return $str 
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proc iat: : canvas :: an t_jmake_image { ns } { 
5 variable TRACE 

if {$TKACE> { puts "iat: : canvas : :ant_make_image: $ns" } 



10 



15 



20 } 



upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

upvar #0 [join [list [namespace current] $ns image] ;:] image 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

upvar #0 [join [list [namespace current] $ns state] ::] state 

$annotations erase 
click_reset $ns 
$annotations draw all 

set img [image create photo -format window -data $canvas] 
return $img 



25 



30 



35 



40 



proc iat : : canvas : : ant_make_svg { ns 
variable TRACE 

if {$TRACE> { puts "iat: : canvas j 



> { 

:ant_raake_svg: $ns* ) 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join [list 
[join [list 



[join 
[join 



[list 
[list 



[join [list 
(join [list 
[join [list 



[namespace 
[namespace 
[namespace 
[namespace 
[namespace 
(namespace 
[namespace 



current] 
current] 
current] 
current] 
current] 
current] 
current] 



$ns image] : : ] image 



$ns annotations] 
$ns border L] 
$ns borderTJ 
$ns borderR] 
$ns borderB] 
$ns borderColor] 



: : ] annotations 
:] borderL 
:] borderT 
:] borderR 
: ] borderB 

: : ] borderColor 



set ix [image width $image] 
set iy [image height $ image] 

$annotations erase 
set rvs [$annotations make svg] 



set menu [1 index $rvs 
set ants [lindex $rvs 
#click_reset $ns 
$annotations select 
$anno tat ions draw all 



01 
1] 



45 return [list $borderL $borderT $borderR $borderB $borderColor $ix $iy $menu $ants] 



50 



proc iat: : canvas : ;ant_rea6L_cmds { ns doc } { 
variable TRACE 

if {$TRACE> { puts ■ iat :: canvas :: ant_rea6L_cmds : $ns $doc" } 



55 



60 



65 



70 



75 



80 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join 
[join 
[join 
(join 
[join 
[join 
[join 



[list 
[list 
(list 
[list 
[list 
[list 
[list 



(namespace 
[namespace 
[namespace 
[namespace 
[namespace 
[namespace 
[namespace 



current] 
current] 
current] 
current] 
current] 
current] 
current] 



$ns image] : : ] image 



$ns annotations] 



$ns borderL] 
$ns borderT] 
$ns borderR] 
$ns borderB] 



: : ] annotations 
borderL 
borderT 
borderR 



:] borderB 



upvar #0 [join (list $doc doc_by_eid] 
upvar #0 [join [list $doc docJby_elt] 

if {{info exists doc„py_elt (border) ] } { 
set eids $doc_j3y_elt (border) 
#puts • eids = $eids- 
set eid [lindex $eids end] 

#puts * $doc_by_eid($eid) " 
array set A $docJby_eid($eid) 
array set O $A(opt) 

if {[info exists O(color)J) { 
set borderColor $0( color) 
#puts ■ color = $borderColor - 

) 

if ((info exists A(dat)]} { 
set B $A(dat) 
#puts ■ B = $B" 
set borderL [lindex $B 0] 
set borderT [lindex $B 1] 
set borderR [lindex $B 2] 



$ns borderColor] : : ] borderColor 

* ] doc__by__eid 
: ] doc_by_elt 
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set borderB (lindex $B 31 

) 

} 

5 

$annotations read_cmds $doc 
return 0 

} 

10 

proc iat: : canvas : :dump_annotat ions { ns } { 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 
15 $annotations dump 

) 

proc iat: : canvas : :dump_keys { ns } { 

20 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

$annotations dump_Jceys 
click_reset $ns 
25 $annotations draw all 

} * - ' ' 

proc iat : : canvas : : dump_svg { ns } { 

30 

upvar #0 [join [list [namespace current] $ns annotations] ::] annotations 

$annotations dump_svg 
click_reset $ns 
35 $annotations draw all 

> 

proc iat: : canvas :: ant __make__ps { ns filename {height 5i) > { 
4 0 variable TRACE 

if <$TRACE) { puts • iat :: canvas :: and_make_ps : $ns $ filename- } 

upvar #0 [join [list [namespace current] $ns canvas] ::] canvas 

45 #set fontMap(-*-Arial-bold-*-*-*-24-*) [list Arial 24] 

#set fontMap(-*-Helvetica-*-*-*~*-*-*) [list Arial 24] 

$canvas create rect 0 0 [$canvas cget -width] [$canvas cget -height] -fill #222 -tags forPS 
$canvas lower forPS 

# re turn [$canvas postscript -pageheight $height -colormode gray) 
50 ffset PS [$canvas postscript -pageheight $height] 
set PS [$canvas postscript -file $filename] 
Scanvas delete for PS 
return $PS 

) 

55 iat . icons.txt 
# iat . icons . tcl 

namespace eval iat : : icons { 

60 

set SelectSolid {\ 

R0 1GOD1 hFAAUAPcAAAAAAAAAQAAAg AAA/wAgAAAgQAAggAAg / wBAAABAQ ABA \ 

g ABA / wBg AABgQABggABg / wCAAACAQACAgACA / wCgAACgQACggACg / wDAAADA\ 

QAD Ag ADA/ wD / AAD/ QAD/ gAD / / yAAACAAQCAAgCAA/ yAg ACAgQCAggCAg / yBA\ 
65 ACBAQCBAgCBA/yBgACBgQCBggCBg / yCAACCAQCCAgCCA/ y CgACCgQCCggCCg \ 

/yDAACDAQCDAgCDA/yD/ ACD/QCD/gCD/ / OAAAEAAQEAAgEAA/ 0 AgAEAgQEAg \ 

gEAg / OBAAEBAQEBAgEBA/ 0 Bg AEBgQEBg g EBg / OCAAECAQECAgECA/ 0CgAECg\ 

QECggECg / ODAAEDAQEDAgEDA/ 0D/AED/QED/gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 

AGAgQGAggGAg / 2BAAGBAQGBAgGBA/ 2BgAGBgQGBggGBg / 2CAAGCAQGCAgGCA\ 
TO /2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAA\ 

gIAA/4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/4CAAICA\ 

QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QlD/ gID/ / 6AA\ 

AKAAQKAAgKAA / 6AgAKAgQKAggKAg / 6 BAAKB AQKBAgKB A / 6 BgAKBgQKBggKBg \ 

/ 6 CAAKCAQKC AgKC A / 6CgAKCgQKCggKCg/6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 

7 5 gKD/ / 8 AAAMAAQMAAgMAA / 8 Ag AMAgQMAggMAg / 8 B AAMBAQMBAgMBA / 8BgAMBg\ 

QMBggMBg / 8C AAMC AQMCAgMC A / 8CgAMCgQMCggMCg/ 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ /8gAP8gQP8ggP8g/ / 9AAP9AQP9AgP9A\ 
/ /9gAP9gQP9ggP9g/ /+AAP+AQP+AgP+A//+gAP+gQP+ggP+g/ / /AAP/AQP/A\ 
gP/A/ / / / AP/ /QP/ /gP/ / /yH 5BAEAAP8 ALAAAAAAUABQAAAhI«AP8 JHEiwoMGD \ 

8 0 AhlqXC j goECGEB3 +g8hQ4kSKCSlepKhxY0WLGBtKDCkS4XJKP JQt+9GhSocqM\ 

Lll 2RDmT 5 syVGnHmlFmTZ 8 2 f BAMCADs = \ 
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set Polygon {X 

R0 1 GOD1 hF AAUAP C AAAAAAAAAQ AAAg AAA / wAg AAAgQAAgg AAg / wB AAABAQ ABA \ 
5 g ABA / wBg AABgQABg g ABg / wC AAAC AQACAgACA / wCgAACgQ ACggACg /wDAAADAX 

QADAgADA/wD /AAD/QAD/gAD/ ZyAAACAAQCAAgCAA/yAgACAgQCAggCAg/yBA \ 
ACBAQCBAgCBA/yBgACBgQCBggCBg /yCAACCAQCCAgCCA/yCgACCgQCCggCCg \ 
/ yD AACDAQCDAgCDA / yD / ACD / QCD / gCD/ / 0 AAAEAAQEAAgEAA / 0 AgAEAgQEAg \ 
gEAg / 0 BAAEB AQEBAg EBA / 0 BgAEBgQEBggEBg / OCAABCAQECAgECA / OCgAECg X 

1 0 QECggECg/ ODAAEDAQEDAgEDA/ OD/AED/QED / gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 

AGAgQGAggGAg / 2 B AAGBAQGBAgGBA / 2 Bg AGBgQGBggGBg / 2 CAAGC AQGCAgGC A \ 
/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAA\ 
glAA/ 4 AgAI AgQIAgg IAg/ 4BAAIBAQIBAgIBA/4BgAIBgQlBggIBg / 4CAAICAX 
QICAgICA/4CgAICgQICggXCg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 

15 AKAAQKAAgKAA/ 6 Ag AKAgQKAggKAg / 6BAAKBAQKBAgKBA / 6BgAKBgQKBggKBg \ 

/ 6 CAAKCAQKC AgKCA/ 6CgAKCgQKCggKCg/ 6 D AAKD AQKD AgKD A / 6D/ AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA / 8 Ag AMAgQMAggMAg / 8 BAAMBAQMBAgMB A/ SBgAMBg \ 
QMBggMBg / 8 CAAMCAQMCAgMCA / 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD///8AAP8AQP8AgP8A//8gAP8gQP8ggP8g//9AAP9AQP9AgP9A\ 

20 //9gAP9gQP9ggP9g//+AAP+AQP+AgP+A//+gAP+gQP+ggP+g///AAP/AQP/A\ 
gP/A/ / / ZAP/ /QP/ /gP/ / /yH5 BAEAAP8 ALAAAAAAUABQAAAhPAP8 JHEiwoMGD \ 
CA8 KWJhQ4 cKHAhoOnEhxIkOCFSlWxHhRoMaOHiMalF j w4Ui IDlcuCPCnynOmJ \ 
Fl /C j ChzZs2GGyWGvIkTpU6LLX8KHXowIAA7 \ 

} 

25 

set Point {X 

R0 1GOD1 nF AAUAPcAAAAAAAAAQ AAAgAAA / wAg AAAgQAAgg AAg / wBAAABAQABA \ 

g ABA / wBg AABgQ ABgg ABg /wC AAAC AQACAgACA/ wCgAACgQACggACg /wDAAADAX 
QADAgADA / wD / AAD / QAD / g AD / / yAAACAAQCAAgCAA / yAg ACAg QC AggCAg /yBA \ 

30 ACBAQCBAgCBA/ yBgACBgQCBggCBg / yCAACCAQCCAgCCA /yCgACCgQCCggCCg \ 

/yDAACDAQCDAgCDA/yD/ ACD /QCD/ gCD/ / 0 AAAEAAQEAAgEAA/ 0 AgAEAgQEAg X 
gEAg / 0 B AAEBAQEBAg EBA / 0 BgAEBgQEBggEBg / OCAABCAQECAgECA/ OCgAECg \ 
QECggECg / ODAAEDAQEDAgEDA/ 0D/ AED/QED/gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2CAAGC AQGCAgGC AX 

35 / 2Cg AGCgQGCggGCg / 2DAAGDAQGDAgGDA/ 2D/ AGD/ QGD/gGD/ / 4 AAAXAAQX AA\ 

g IAA/ 4 AgAI AgQIAggXAg / 4 BAAJBAQI BAg IBA / 4 BgAlBgQXBgglBg / 4 C AAICAX 
QICAgICA/ 4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID/ / 6AAX 
AKAAQKAAgKAA/ 6AgAKAgQKAggKAg / 6 BAAKBAQKB AgKBA / 6BgAKBgQKBggKBg \ 
/ eCAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg/ 6DAAKDAQKDAgKDA/ 6D/ AKD/QKD/ X 

4 0 gKD/ / 8 AAAMAAQMAAgMAA / 8 Ag AMAgQMAggMAg / 8 BAAMBAQMB AgMBA / 8BgAMBg \ 

QMBggMBg / 8 CAAMCAQMCAgMCA / 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ X 
AMD/QMD/gMD/ / / 8AAP8 AQP8AgP8A/ / 8gAP8gQP8ggP8g/ /9AAP9AQP9 AgP9 AX 
//9gAP9gQP9ggP9g//+AAP+AQP+AgP+A//+gAP+gQP+ggP+g///AAP/AQP/A\ 
gP/A/ / / / AP/ /QP/ /gP/ / /yH5BAEAAP8ALAAAAAAUABQAAAgvAP8 JHEiwoMGD X 

4 5 CBMqXMi wocOHEBkKmAhxo S WHF ik6zCigosaI IEOKHEmypMinBAQEAOw= = \ 

) 

set Color {\ 

R0 lGODlhF AAUAPCAAAAAAAAAQ AAAgAAA/ wAg AAAgQAAgg AAg / wBAAABAQABA \ 

5 0 g ABA / wBg AABgQ ABgg ABg / wCAAACAQ ACAg AC A/ wCg AACgQ ACg g ACg /wDAAADA X 

QADAgADA/wD/ AAD/QAD/gAD/ /yAAACAAQCAAg CAA/ yAgACAgQCAg gCAg /yBAX 
ACBAQCBAgCBA/yBgACBgQCBggCBg /yCAACCAQCCAgCCA /yCgACCgQCCggCCg \ 
/yDAACDAQCDAgCDA/yD/ ACD/QCD/gCD/ / 0 AAAEAAQEAAgEAA/ 0 AgAEAgQEAg X 
gEAg / 0 B AAEBAQEBAgEBA/ 0 BgAEBgQEBggEBg/ OCAAECAQECAgEC A/ OCgAECg \ 
55 QECggECg / ODAAEDAQEDAgEDA/ 0D / AED/ QED / gED / / 2 AAAGAAQGAAgGAA/ 2 Ag \ 

AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2CAAGC AQGCAgGC A X 
/ 2 Cg AGCgQGCggGCg/ 2DAAGDAQGDAgGDA/ 2D/ AGD/ QGD/gGD/ / 4 AAAXAAQX AAX 
glAA/ 4AgAIAgQXAggIAg/ 4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg / 4CAAICAX 
QICAgICA/ 4CgAICgQICggICg/4DAAIDAQXDAgIDA/4D/AID/QID/gID//6AAX 

6 0 AKAAQKAAgKAA/ 6 AgAKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 Bg AKBg QKBggKBg X 

/ 6CAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg/6DAAKDAQKDAgKDA/6D/ AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA/ 8 Ag AMAgQMAggMAg / 8 BAAMBAQMBAgMB A / 8 BgAMBg X 
QMBggMBg / 8 CAAMCAQMCAgMCA / 8CgAMCgQMCggMCg/ 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8 AAP8AQP8AgP8 A/ / 8gAP8gQP8ggP8g / / 9 AAP9AQP9AgP9 AX 
65 / / 9gAP9gQP9ggP9g/ / +AAP+AQP+AgP+A/ /+gAP+gQP+ggp+g/ / /AAP/AQP/AX 

gP/A/ / / / AP/ /QP/ /gP/ / / yH5 BAEAAP8ALAAAAAATJABQAAAhhAP 8 JHEiwoEEB \ 
C^qXJhQoACD/xBCfBhx4sOIJSlSI^jxoEOLGUNWLiRoEaQGDG05FhyoEaG\ 
MBU6 j Enz 1 8mUEU/ i 1L j TpsqGKXWG5DnU5 0 igGYUGLXry 5 tCXNGFCnGowIAA7 X 

} 

70 

set Line {\ 

R0 IGODlhFAADAPc AAAAAAAAAQAAAgAAA / wAg AAAgQAAggAAg / wBAAABAQABA \ 

g AB A/ wBgAABgQABgg ABg / wCAAACAQACAgACA/ wCgAACgQACggACg / wDAAADAX 
QADAgADA/ wD/ AAD/ QAD/ g AD/ / yAAACAAQCAAgCAA / yAgACAgQCAg gC Ag /yBA\ 

7 5 ACBAQCBAgCBA/yBgACBgQCBggCBg /yCAACCAQCCAgCCA/yCgACCgQCCggCCg \ 

/yDAACDAQCDAgCDA/yD/ ACD/ QCD/gCD/ / 0 AAAEAAQEAAgEAA/ 0 AgAEAgQEAg X 
gEAg / 0B AAEBAQEBAgEBA/ OBg AEBgQEBgg EBg / OCAAECAQECAgEC A / OCgAECg X 
QECggECg / ODAAEDAQEDAgEDA/ OD/ AED/QED/gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2 CAAG C AQGCAgGCAX 
80 / 2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/ 2D/ AGD /QGD/gGD/ / 4AAAXAAQXAAX 

glAA/ 4AgAXAgQIAggIAg/4BAAIBAQIBAgIBA/ 4BgAXBgQXBggXBg/ 4CAAXCAX 
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QlCAgICA/ 4CgAICgQICggICg/ 4DAAIDAQIDAgIDA/ 4D/ AID/QID/gID/ / 6AA\ 
AKAAQKAAgKAA/ 6 AgAKAgQKAggKAg/ 6 B AAKB AQKB AgKB A / 6BgAKBgQKBggKBg\ 
/6CAAKCAQKCAgKCA/6CgAKCgQKCggKCg/6DAAKDAQKDAgKDA/6D/AKD/QKD/\ 
gKD/ / 8 AAAMAAQMAAgMAA / 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA / 8BgAMBg\ 
QMBggMBg / 8CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg/ 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD///8AAP8AQP8AgP8A//8gAP8gQP8ggP8g//9AAP9AQP9AgP9A\ 
//9gAP9gQP9ggP9g/ /+AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g///AAP/AQP/A\ 
gP/A/ / / / AP/ /QP/ /gP/ / /yH5BAEAAP8ALAAAAAAUABQAAAg / AP8 JHEiwoMGD\ 
CBMmFMBQoUGGEBO ShNhQokCKAi z +w6gxosaNFTuG tOhRZMaPJRlyJEkRZUiiT\ 
iyWta/ Ei zpsCAADs= \ 



set Cut {\ 

R0 IGODlhFAAUAPcAAAAAAAAAQ AAAgAAA/ wAg AAAgQAAgg AAg / wBAAABAQ ABA \ 

gABA/wBgAABgQABggABg /wCAAACAQACAgACA/wCgAACgQACggACg / wDAAADAX 
QADAg ADA / wD / AAD / Q AD / g AD / /yAAACAAQCAAgCAA / yAg ACAgQCAggCAg /yBA\ 
ACBAQCBAgCBA/y Bg ACBgQCBggCBg / yCAACCAQCCAgCCA / yCg ACCgQCCggCCg \ 
/yDAACDAQCDAgCDA/yD/ ACD/QCD/gCD/ / OAAAEAAQEAAgEAA/ 0 Ag AEAgQEAg \ 
gEAg / OBAAEBAQEBAgEBA/ 0 BgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECg \ 
QECggECg / ODAAEDAQEDAgEDA / OD / AED / QED / gED / / 2 AAAGAAQGAAgGAA/ 2 Ag \ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA / 2 Bg AGBgQGBggGBg / 2 C AAGCAQGCAgGC A \ 
/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAA\ 
glAA/ 4 AgAIAgQI AggI Ag / 4BAAIBAQIBAgIBA/ 4BgAIBgQIBggIBg / 4CAAICAX 
Q I CAgICA/ 4CgAI CgQICgg I Cg/ 4 DAAIDAQIDAgIDA/4D/ AID/QID/gID/ / 6AA\ 
AKAAQKAAgKAA / 6 Ag AKAgQKAggKAg / 6 BAAKBAQKBAgKBA / 6 Bg AKBgQKBggKBg \ 
/ 6CAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg/ 6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA / 8 AgAMAgQMAggMAg / 8 BAAMBAQMB AgMBA / 8BgAMBg \ 
QMBggMBg / 8CAAMCAQMCAgMCA / 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ / 9AAP9AQP9AgP9A\ 
/ / 9gAP9gQP9ggP9g/ / +AAP+AQP+AgP+A/ / +gAP+gQP+ggP+g/ / /AAP/AQP/AV 
gP/ A/ / / / AP/ /QP/ /gP/ / /yH5BAEAAP8ALAAAAAAUABQAAAheAP8JHEiwoEEB\ 
CAO eTPhPADiGChs6FCAQ4UOKCi 1C1I iRIMeCHweGBDkR4 8 iFF09mLHkxIklw\ 
LVl6dBhTpsSLNSl^VDkzJs+bEIF2rFgS5caiK33inl^0<^6gNg0GBAA7\ 

} 

set PointerSingle {\ 

RO IGODlhFAAUAPcAAAAAAAAAQ AAAgAAA / wAg AAAgQAAgg AAg / wBAAABAQ ABA \ 

gABA / wBgAABgQABgg ABg / wCAAACAQAC Ag ACA/ wCgAACgQACgg ACg / wDAAADA \ 
QADAg ADA / wD / AAD / QAD / gAD / / yAAAC AAQCAAgCAA/yAgACAgQCAggCAg / yBA\ 
ACBAQCBAgCBA/ yBg ACBgQCBggCBg / yCAACCAQCCAgCCA/yCg ACCgQCCggCCg \ 
/yDAACDAQCDAgCDA/yD/ ACD/QCD/gCD / / OAAAEAAQEAAgEAA /OAg AEAgQEAg \ 
gEAg /OBAAEBAQEBAgEBA/ 0 BgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECg \ 
QECggECg / ODAAEDAQEDAgEDA / 0 D/ AED / QED / gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA / 2 BgAGBgQGBggGBg / 2 CAAGCAQGCAgGCAX 
/ 2 Cg AGCgQGCggGCg / 2 D AAGD AQGD AgGDA / 2 D/AGD / QGD/ gGD/ / 4 AAAIAAQIAAN 
glAA/ 4 AgAIAgQI AggI Ag/ 4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/ 4CAAICA\ 
QlCAgICA/ 4CgAICgQICggICg / 4DAAIDAQIDAg IDA / 4D/ AID/QID/gID/ / 6 AA\ 
AKAAQKAAgKAA/ 6 Ag AKAgQKAggKAg / 6 BAAKBAQKBAg KBA / 6 Bg AKBgQKBggKBg \ 
/ 6 CAAKCAQKCAgKC A/ 6CgAKCgQKCggKCg / 6DAAKDAQKDAgKDA/ 6D/ AKD/QKD/ \ 
gKD / / 8 AAAMAAQMAAgMAA / 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA/ 8BgAMBg\ 
QMBggMBg/ 8CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ / 9AAP9AQP9AgP9A\ 
/ / 9gAP9gQP9ggP9g/ / +AAP+AQP+AgP+A/ / +gAP+gQP+ggP+g / / / AAP/ AQP/A\ 
gP/ A/ / / / AP/ /QP/ /gP/ / / yH5 BAEAAP 8 ALAAAAAAUABQAAAhGAP8JHEi woMGD \ 
Ah IKOMhQoUKGBh 0mhFhQ4 kKKBB 1 i j HhxY8aOHgVODDlwJMl /JkmmDLnSY8uN\ 
LyFadGkRpEyJKh+e j PkvIAA7 \ 

> 

set SelectHollow {\ 

RO IGODlhFAAUAPcAAAAAAAAAQ AAAgAAA/ wAg AAAgQAAgg AAg / wBAAABAQ ABA \ 

gABA/wBgAABgQABggABg /wCAAACAQACAgACA/wCgAACgQACggACg / wDAAADAX 
QADAg ADA/ wD / AAD / QAD / gAD/ /yAAACAAQCAAgCAA/ yAgACAgQCAggCAg / yBA\ 
ACBAQCBAgCBA /yBgACBgQCBggCBg /yCAACCAQCCAgCCA/ yCg ACCgQCCggCCg V 
/yDAACDAQCDAgCDA/yD/ ACD/QCD/gCD/ / OAAAEAAQEAAgEAA / OAg AEAgQEAg \ 
gEAg / OBAAEBAQEBAgEBA/ 0 BgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECgX 
QECggECg / ODAAEDAQEDAgEDA/ OD/ AED/ QED /gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag\ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2Bg AGBgQGBggGBg / 2CAAGCAQGCAgGCA\ 
/ 2 Cg AGCgQGCggGCg / 2 DAAGDAQGDAgGDA / 2D/ AGD/QGD/gGD/ / 4 AAAIAAQI AA \ 
gIAA/4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/4CAAICA\ 
^ QlCAgICA/ 4 CgAICgQICggICg/4DAAIDAQIDAgIDA/ 4D/ AID/QID/gID/ /6AA\ 
AKAAQKAAgKAA/ 6 Ag AKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 Bg AKBgQKBggKBg \ 
/ 6 C AAKCAQKCAgKCA / 6CgAKCgQKCggKCg/ 6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA/ 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA / 8BgAMBg\ 
QMBggMBg / 8CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg/ 8DAAMDAQMDAgMDA / 8D/ \ 
AMD/QMD/gMD/ / /8AAP8AQP8AgP8A/ /8gAP8gQP8ggP8g/ /9AAP9AQP9AgP9A\ 
//9gAP9gQP9ggP9g//+AAP+AQP+AgP+A//+gAP+gQP+ggP+g///AAP/AQP/A\ 
gP/ A/ / / / AP/ /QP/ /gP/ / /yH5 BAEAAP 8 ALAAAAAAUABQAAAhUAP8JHE i woMGD \ 
AhlqXC j goECGEB3 +S4 iwoUSFBSlKnK j xocV^TluFKkxpEGKC0U6RNmQ5cqW\ 
HlOehJnRJMmPI 12O9Khyp0 6 fNHc+7CkUo9C j DgMCADs= \ 
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set Symbol {\ 

ROlGODlhFAAUAPcAAAAAAAAAQAAAgAAA/wAgAAAgQAAggAAg/wBAAABAQABAX 

g ABA / wBg AABgQABgg ABg / wCAAACAQAC Ag ACA / wCg AACgQ AC gg ACg /wDAAADAX 
QADAgADA/wD /AAD/QAD/gAD/ /yAAACAAQCAAgC AA/yAgACAgQC AggCAg / yBA\ 
5 ACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCAQCCAgCCA/yCgACCgQCCggCCgN 
/yDAACDAQCDAgCDA/ yD / ACD / QCD/ gCD / / 0 AAAEAAQEAAgEAA / 0 Ag AEAgQEAg \ 
gEAg / 0 B AAEB AQEBAgEBA / OBgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECg \ 
QECggECg / ODAAEDAQEDAgEDA/ 0D/ AED/ QED/gED/ / 2 AAAG AAQGAAgGAA / 2 Ag \ 
AGAgQGAggG Ag / 2 BAAGBAQGBAgGBA/ 2 BgAGBgQGBggGBg / 2 CAAGC AQGCAgGCA \ 

1 0 /2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD/ / 4 AAAI AAQIAA\ 

glAA/ 4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA/ 4BgAIBgQIBggIBg/4CAAICA\ 
QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 
AKAAQKAAgKAA / 6AgAKAgQKAggKAg/ 6BAAKBAQKBAgKBA/ 6 Bg AKBgQKBggKBg \ 
/ 6 C AAKCAQKC AgKC A / 6CgAKCgQKCggKCg / 6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 

1 5 gKD/ / 8AAAMAAQMAAgMAA/ 8 Ag AMAgQMAggMAg / 8BAAMBAQMBAgMBA/ 8BgAMBg\ 

QMBggMBg/ 8 C AAMCAQMCAgMCA / 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/ QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ / 9AAP9 AQP9AgP9A\ 
/ /9gAP9gQP9ggP9g/ /+AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g/ / /AAP/AQP/A\ 
gP/A/ / / / AP/ /QP/ /gP/ / / y H 5 BAEAAP 8 ALAAAAAAUABQ AAAhQ AP 8 JHEiwoMGD \ 

2 0 / wQ I QMhQoUKGBx0uhEhQ4 kOKAi 9 epOgw4 8aGEz ly /NgRpMGPBUtWRDnQo suQ \ 

Kl 9 a PAmTZkqWMVdi 3 KgS 5 EScEX / WNIkRYUAAOw== \ 

} 

set Circle {\ 

25 Qk3 oBAAAAAAAADYAAAAoAAAAFAAAABQAAAABABgAAAAAAAAAAAASCwAAEgs A \ 

AAAAAAAAAAAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eP&4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHh 4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh 4 eHh4 eHh \ 
4 eHh4 eHhz s 7 Oi oqKTkB OHx8 f BAQEBAQEB AQEHx8 f TkSOi oqKzs 7 04 eHh 4 eHh \ 

30 4eHh4eHh4eHh4eHh4eHh4eHhpqamRkZGExMTVl^ 

VI dXExMTRkZGpqam4 eHh4 eHh4 eHh4eHh4 eHh4 eHhpqamMDAwOz s7m5ub4 eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHhm5\ri30zs 

RkZGOzs7sbGx4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhsbGxOzs7RkZG\ 
zs704eHh4eHh4eHhioqKExMTm5\ib4eHh4eHh4eHli4eHh4eHh4eHh4eHh4e 

35 4eHh4eHh4eHhm5ubExMTioqK4eHh4eHh4eHhTk5^ 

4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhVldXTk504eHh4eHh4eHhHx8f \ 
k5OT4eHh4eHh4eHh4eHh4eHh4emi4eHh4eHh4eHh4eHh4eHh4eHh4eHhk50T\ 
Hx 8 f 4 eHh4 eHh4 eHhBAQEws LC4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh \ 
4 eHh4 eHh4 eHh4 eHhws LCBAQE4 eHh4 eHh4 eHhBAQE3 d3 d4 eHh4 eHh4 eHh4 eHh \ 

4 0 4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh3 d3 dBAQE4 eHh4eHh4 eHhBAQE \ 

wsLC4eHh4eHh4 eHh4 eHh4eHh4 eHh4eHh4 eHh4 eHh4 eHh4 eHh4eHh4 eHhws LC \ 
BAQE4eHh4eHh4eHhHx8fk50T4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHhk5C J THx8f4eHh4eHh4eHhTk50VldX4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhVldXTk504eHh4eHh4eHhioqK\ 

4 5 ExMTm5 ub4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4eHh4 eHhmS ubExMT \ 

ioqK4eHh4eHh4eHhzs70RkZGOzs7sbGx4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHhsbGxOzs7RkZGzs704eHh4eHh4eHh4eHhpqainMDAwOzs7in5ub4eHh\ 
4 eHh4 eHh4 eHh4 eHh4 eHh4 eHhmSiabOz s 7MDAwpqam4 eHh4 eHh4 eHh4 eHh4 eHh\ 
4eHhpqaroRkZGExMTVldXk50TwsIX:3d3<^sIiac50TV^ 

50 4 eHh4 eHh4eHh4 eHh4eHh4eHh4eHhz s7 OioqKTk50Hx8 f BAQEBAQEBAQEHx 8 f \ 

Tk50i oqKzs704eHh4 eHh4eHh4 eHh4 eHh4eHh4 eHh4eHh4 eHh4eHh4 eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhAAA=\ 

) 

55 set Rectangle {\ 

Qk3 OBAAAAAAAADYAAAAoAAAAFAAAABQAAAABABgAAAAAAAAAAAASCwAAEgs A\ 

AAAAAAAAAAAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHh 4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 

60 4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHh 4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh4eHh4 eHh4eHh4 eHh4 eHh4 eHh4 eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhAAAAAAAA/ / / /AAAA/ / / /AAAA\ 
/ / / / AAAA/ / / /AAAA/ / / /AAAA/ / / / AAAA/ / / /AAAA/ / / /AAAA4eHh4eHh/ / / / \ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 

65 4 eHh/ / / /4eHh4eHhAAAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 

4eHh4eHh4eHh4eHh4eHh4eHhAAAA4eHh4eHh////4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh////4eHh4eHhAAAA\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHhAAAA4 eHh 4 eHh / / / /4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 

7 0 4eHh4eHh4eHh4eHh4eHh4eHh/ / //4eHh4eHhAAAA4eHh4eHh4eHh4eHh4eHh\ 

4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhAAAA4eHh4eHh/ / / / \ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHh/ / / /4eHh4eHhAAAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHhAAAA4eHh4eHh/ / / /4eHh4eHh4eHh4eHh4eHh\ 

7 5 4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh/ / //4eHh4eHhAAAA\ 

4 eHh4eHh4 eHh4 eHh4eHh4 eHh4 eHh4 eHh 4 eHh 4 eHh4 eHh4 eHh4eHh4eHh4eHh\ 
4eHhAAAA4eHh4eHh////4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4 eHh/ / / /4eHh4eHhAAAAAAAA/ / / /AAAA/ / / / AAAA\ 
/ / / / AAAA/ / / / AAAA/ / / /AAAA/ / / / AAAA/ / / /AAAA/ / / / AAAA4eHh4eHh4eHh\ 

8 0 4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 

4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
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4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhAAA= V 

> 

5 set Blank {\ 

R0 1 GODlhFAAUAPc AAAAAAAAAQAAAg AAA/ wAgAAAgQAAggAAg /WBAAABAQABA\ 

gABA/wBgAABgQABggABg / wCAAACAQACAgACA/wCgAACgQACggACg /wDAAADAN 
QADAgADA/wD/AAD/QAD/gAD//yAAACAAQCAAgCAA/yAgACAgQCAggCAg/yBA\ 
ACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCAQCCAgCCA/yCgACCgQCCggCCg\ 
10 /yDAACDAQCDAgCDA/yD/ ACD/ QCD/ gCD/ / OAAAEAAQEAAgEAA/ OAgAEAgQEAg \ 

gEAg/OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECgX 
QECggECg / ODAAEDAQEDAgEDA/ OD / AED / QED / gED / / 2 AAAGAAQGAAgGAA / 2 Ag \ 
AGAgQGAggGAg / 2BAAGBAQGBAgGBA/ 2BgAGBgQGBggGBg / 2CAAGCAQGCAgGCA\ 
/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAA\ 
15 gIAA/4AgAIAgQIAggIAg/ 4BAAIBAQIBAgIBA/4BgAlBgQIBggIBg/4CAAICA\ 

QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAglDA/4D/AID/QID/glD//6AA\ 
AKAAQKAAgKAA/6AgAKAgQKAggKAg/6BAAKBAQKBAgKBA/6BgAKBgQKBggKBg\ 
/ 6 C AAKCAQKCAgKCA/ 6CgAKCgQKCggKCg / 6DAAKDAQKDAgKDA/ 6D/ AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA / 8AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA / 8BgAMBg \ 
QMBggMBg / 8CAAMC AQMCAgMCA / 8Cg AMCgQMCggMCg / 8DAAMDAQMDAgMDA / 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ / 9AAP9AQP9AgP9A\ 
/ / 9gAP9gQP9ggP9g / / +AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g/ / / AAP/ AQP/ A\ 
gP/ A/ / / /AP/ /QP/ /gp/ / /yH5BAEAAP8ALAAAAAAUABQAAAgiAP8 JHEiwoMGD\ 
CBMqXMiwocOHECNKnEixosWLGDNq3GgxIAA7\ 

} 

set Copy {\ . 

Qk3mBAAAAAAAADYAAAAoAAAAF AAAABQAAAABABg AAAAAALAEAADEDgAAxA4 A\ 

AAAAAAAAAAAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4 eHh4 eHh4 eHh4 eHhgEAAgEAAg EAAg EAAgEAAgEAAgEAAgEAAgEAAgEAA4 eHh \ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhgEAA/ / // // // // // // // // / / \ 
///////// / / /gEAA4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHhgEAA\ 
//////////////////////////////// gEA A4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4eHh4eHh4eHhgEAA///////////////////////// ///////gEAA4eHhx 

4eHh4eHh4eHh4eHhgEAAgEAAgEAAgEAAgEAAgEAA/ /////////////////// \ 
//////////// gEAA4 eHh4 eHh4 eHh4 eHh 4 e HhgEAAwMD AwMDAwMDAwMDAgEAA \ 

//////////////////////////////// g EAA4eHh4eHh4eHh4eHh4eHhgEAA\ 
wMDAwMDAwMDAwMDAgEAA///////////////////////////// / / /gEAA4eHhN 

4 eHh4eHh4eHh4 eHhg EAAwMDAwMDAwMDAwMDAgEAA/ / // // // // // // // // / / \ 
////////// / / gEAA4 eHh4 eHh4 eHh4 eHh4 eHhgEAAwMDAwMDAwMDAv*EDAgEAA\ 

//////////////////////////////// gEAA 4eHh4eHh4eHh4eHh4eHhgEAA\ 
wMDAwMDAwMDAwMDAgEAA//////////////////////////// ////gEAA4eHhx 

4 eHh4 eHh4 eHh4 eHhg EAAwMDAwMDAwMDAwMDAgEAA/ / // // // // // ////// / / \ 

////////// / / gEAA4 eHh4 eHh4 eHh4 eHh4 eHhgEAAwMDAwMDAwMDAwMDAgEAA \ 

//////////////////////////////// gEAA4e Hh4eHh4eHh4eHh4eHhgEAA\ 
v^Aw^AwMDAwMDAgEAA////////////////////// // / ///////gEAA4eHhx 

4 eHh4 eHh4 eHh4 eHhg EAAwMDAwMD AwMDAwMDAgEAAgEAAgEAAgEAAgEAAgEAA \ 
g EAAg EAAg EAAg EAA4 eHh 4 e Hh4 eHh4 eHh4 eHhgEAAwMDAwMDAwMDAwMDAwMDA \ 
wMDAwMDAwMDAgEAA4 eHh 4 eHh 4 eHh 4 eHh4 eHh 4 eHh4 eHh4 eHh4 eHh4 eHhg EAA \ 
wMD AwMDAwMD AwMD AwMDAwMDAwMDAwMDAgEAA 4 eHh4 eHh4 eHh4 eHh4 eHh4 eHh \ 
4 e Hh4 e Hh4 eHh 4 eHhgEAAgEAAg EAAg EAAgEAAgEAAgEAAgEAAgEAAgEAA4 eHh \ 
4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh\ 
4eHh4 eHh4 eHh4eHh4eHh4 eHh4 eHh4 eHh4eHh4eHh4 eHh4 eHh4eHh\ 

set Pin {\ 

R 0 1GOD1 hFAAUAPc AAAAAAAAAQAAAg AAA / WAgAAAgQAAggAAg / wBAAABAQABA \ 

g ABA / wBg AABgQABggABg / wCAAACAQACAg ACA/ wCgAACgQACggACg / wDAAADA\ 
QADAgADA/wD/AAD/QAD/gAD//yAAACAAQCAAgCAA/yAgACAgQCAggCAg/yBA\ 
ACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCAQCCAgCCA/yCgACCgQCCggCCg\ 
/yDAACDAQCDAgCDA/ yD/ ACD/ QCD / gCD/ / OAAAEAAQEAAgEAA/ OAgAEAgQEAg \ 
gEAg / OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg / OCAAECAQECAgECA/ 0CgAECg\ 
QECggECg / ODAAEDAQEDAgEDA/ 0 D / AED /QED / gED/ / 2 AAAGAAQGAAgGAA/ 2 Ag \ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2 CAAGCAQGCAgGCA\ 
/ 2CgAGCgQGCggGCg/ 2 DAAGDAQGDAgGDA / 2D/ AGD/QGD/gGD/ / 4AAAIAAQIAA\ 
g I AA/ 4 Ag AIAgQI AggI Ag / 4 BAAIBAQIBAglBA/ 4 BgAIBgQIBgglBg / 4 CAAICA \ 
QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 
AKAAQKAAgKAA/ 6 Ag AKAgQKAg g KAg / 6 BAAKBAQKBAg KB A / 6 Bg AKBgQKBggKBg \ 
/ 6CAAKCAQKCAgKCA / 6CgAKCgQKCggKCg/ 6DAAKDAQKDAgKDA/ 6D/ AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA/ 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA / 8BgAMBg \ 
QMBggMBg / 8 CAAMC AQMCAgMCA/ 8Cg AMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ /9AAP9AQP9AgP9A\ 
//9gAP9gQP9ggP9g//+AAP+AQP+AgP+A//+gAP+gQP+ggP+g///AAP/AQP/A\ 
gP/A/ / / /AP/ /QP/ /gP/ / / yH 5 BAEAAP8 ALAAAAAAUABQ AAAhFAP 8JHEiwoEGC \ 
Ah IqXHhw4 MKHAho i f CixIMSKExliFHhx47+OG0E2hCj SIcanSH09SxJ jQo8WI\ 
Lk3GlDkzZU2bNVverBgQADs=\ 

) 

set PointerHead {\ 
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RO lGODlhFAAUAPcAAAAAAAAAQAAAgAAA/wAgAAAgQAAggAAg / wBAAABAQ ABA \ 

gABA/ wBgAABgQABgg ABg /wCAAACAQACAg AC A / wCg AACgQACggACg / wDAAADAN 
QADAgADA/wD/AAD/QAD/gAr>//yAAACAAQCAAgCAA/yAgACAgQCAggCAg/yBA\ 
ACBAQCBAgCBA/yBgACBgQCBggCBg / yCAACCAQCCAgCCA/yCgACCgQCCggCCg \ 
5 / y DAACDAQCDAgCDA/yD/ACD/QCD/gCD//OAAAEAAQEAAgEAA/OAgAEAgQEAg\ 
gEAg / OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg/ OCAAECAQECAgECA/ OCgAECg\ 
QECggECg/ 0 DAAEDAQEDAgEDA/ OD/ AED/QED/ gED/ / 2 AAAG AAQGAAgGAA / 2 Ag\ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2CAAGCAQGC AgGCA\ 
/ 2 Cg AGCgQGCggGCg / 2 DAAGDAQGDAgGDA/ 2D/ AGD/QGD/gGD/ / 4AAAIAAQIAA\ 

1 0 g IAA/4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/4CAAXCA\ 
QlCAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 
AKAAQKAAgKAA/ 6 AgAKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 Bg AKBgQKBgg KBg \ 
/ 6CAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg / 6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA / 8AgAMAgQMAggMAg/ 8BAAMBAQMBAgMBA/ 8BgAMBg\ 

1 5 QMBggMBg/ 8CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg/ 8DAAMDAQMDAgMDA/ 8D/ \ 

AMD/QMD/gMD// /8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g / /9AAP9AQP9AgP9AN 
/ /9gAP9gQP9ggP9g/ / +AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g / //AAP/AQP/AN 
gP/A/ / / /AP/ /QP/ /gP/ / /yH5 BAEAAP 8 ALAAAAAAUABQAAAhPAP8 JFChgoEGC \ 
BxMqXDiw4 EKHDCM+ Z AiRoI CLGC8axHgwI 8eGGTuGB01RpMOTHi s iNDly osWP \ 

2 0 EknGVKkyYcmYIiZXi f LlTZs+VP/ /VDKOWIAA7 \ 

} 

set Move {\ 

RO IGODlhFAAUAPcAAAAAAAAAQAAAg AAA / wAg AAAgQAAgg AAg / wBAAABAQ ABA \ 

2 5 gABA /wBgAABgQABgg ABg /wCAAACAQACAg AC A/ wCg AACgQACggACg /wDAAADA\ 

QADAgADA / wD / AAD / QAD / g AD / / yAAACAAQCAAgC AA/yAgACAgQCAggCAg /yBA\ 
ACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCAQCCAgCCA/yCgACCgQCCggCCg\ 
/ yDAACDAQCDAgCDA / y D / ACD / QCD / gCD/ / 0 AAAEAAQEAAgEAA/ 0 AgAEAg QEAg \ 
gEAg / OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg / OCAAECAQECAgECA/ OCgAECgN 

3 0 QECggECg / 0 DAAEDAQEDAgEDA/ OD/ AED/QED/ gED/ / 2 AAAG AAQGAAgGAA/ 2Ag\ 

AGAgQGAggGAg / 2 BAAGBAQGBAgGBA / 2 Bg AGBgQGBggGBg / 2 CAAGCAQGCAgGCA\ 
/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAA\ 
glAA/ 4AgAXAgQIAggIAg/ 4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/ 4CAAICA\ 
QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 

3 5 AKAAQKAAgKAA/ 6AgAKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 BgAKBgQKBggKBg \ 

/ 6C AAKC AQKC AgKCA / 6CgAKCgQKCggKCg/ 6 D AAKDAQKDAgKDA / 6D/AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA/ 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA / 8BgAMBg \ 
QMBggMBg / 8 CAAMC AQMCAgMC A / 8Cg AMCgQMCggMCg / 8 DAAMDAQMDAgMDA / 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8 A/ / 8gAP8 gQP8ggP8g/ / 9AAP9 AQP9 AgP9A\ 

4 0 / /9gAP9gQP9ggP9g/ /+AAP+AQP+AgP+A/ Z+gAP+gQP+ggP+g/ / / AAP/ AQP/ A\ 

gP/A/ / / / AP/ / QP / /gP/ / /yH5BAEAAP8ALAAAAAAUABQAAAhVAP8 JHDhQgACCN 
CBMKNGhQoUOGDBO ihAhRIkGKBylOzGiR4 OKP / 0BGLOhxZEiTJy9GxMiypcuXN 
JxuSVCkzpkqaEzfnaPhT4 8eKPlv6 j ImSZ9GgIAkGBAA7 \ 

} 

45 

set Code {\ 

RO IGODlhFAAUAPc AAAAAAAAAQAAAgAAA / wAg AAAgQAAggAAg / wBAAABAQABAN 

gABA / wBg AABgQ ABggABg /wCAAACAQACAgACA/wCg AACgQACggACg /wDAAADA\ 
QADAg ADA/ wD / AAD / QAD / g AD/ / yAAACAAQCAAgCAA/ yAgACAgQCAggCAg / yBA\ 
50 ACBAQCBAgCBA/yBgACBgQCBggCBg /yCAACCAQCCAgCCA/yCgACCgQCCggCCgX 

/yDAACDAQCDAgCDA/yD/ACD/QCD/ gCD/ /0 AAAEAAQEAAgEAA /OAgAEAgQEAgN 
gEAg/ OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg/ OCAAECAQECAgECA/ OCgAECgN 
QECggECg / ODAAEDAQEDAgEDA / OD/ AED/QED /gED/ / 2 AAAGAAQGAAgG AA / 2Ag\ 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2CAAGCAQGCAgGCA\ 

5 5 /2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/ AGD/QGD/gGD/ /4AAAIAAQIAA\ 

gIAA/4AgAIAgQIAggIAg/ 4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/ 4CAAICA\ 
QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AA\ 
AKAAQKAAgKAA/ 6 AgAKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 BgAKBgQKBggKBg \ 
/ 6 CAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg / 6DAAKDAQKDAgKDA/ 6D/ AKD/QKD/ \ 

6 0 gKD/ / 8 AAAMAAQMAAgMAA/ 8 AgAMAgQMAggMAg / 8 BAAMBAQMBAgMBA/ 8BgAMBg \ 

QMBggMBg / 8 CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg/8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/gMD/ / / 8AAP8AQP8AgP8A/ / 8gAP8gQP8ggP8g/ /9AAP9AQP9AgP9A\ 
/ /9gAP9gQP9ggP9g/ / +AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g/ / /AAP/AQP/AN 
gP/A/ / / /AP/ /QP/ /gP/ / / yH5 BAEAAP 8 ALAAAAAAUABQAAAhTAP 8 JHE iwoMGD\ 
65 CBMqRChAwMCGBCEWdPi PYsWHAi lm3M j xokeMHy lSlOhRJEi SFUVKTLntwpciiF \ 

KllmRNlxJEiDJkMyPHlzIs+OEVcK j fmyqNGXAQEAOw== \ 

} 

set PointerMultiple {\ 

7 0 RO lGODlhFAAUAPcAAAAAAAAAQAAAgAAA/ wAgAAAgQAAggAAg / wBAAABAQ ABA \ 

gABA/wBgAABgQ ABggABg / wCAAACAQACAg ACA / wCg AACgQACggACg / wDAAADA \ 
QADAgADA/ wD/AAD/QAD/g AD/ / yAAACAAQCAAgCAA/ yAgACAgQCAggCAg /yBA\ 
ACBAQCBAgCBA/yBgACBgQCBggCBg /yCAACCAQCCAgCCA/yCgACCgQCCggCCg \ 
/ yDAACDAQCDAgCDA / yD / ACD / QCD / gCD/ / 0 AAAEAAQEAAgEAA/ 0 Ag AEAgQEAg \ 

7 5 gEAg/ OBAAEBAQEBAgEBA/ OBgAEBgQEBggEBg/ OCAAECAQECAgECA/ OCgAECgN 

QECggECg / ODAAEDAQEDAgEDA/ OD/ AED/QED/ gED/ / 2 AAAG AAQGAAgGAA / 2AgN 
AGAgQGAggGAg / 2 BAAGBAQGBAgGBA/ 2 Bg AGBgQGBggGBg / 2CAAGCAQGCAgGCAN 
/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAAN 
gIAA/4AgAIAgQIAggXAg/ 4BAAIBAQXBAgXBA/4BgAXBgQXBggIBg/ 4CAAICAN 

80 QICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AAN 
AKAAQKAAgKAA/ 6 AgAKAgQKAggKAg / 6 BAAKBAQKBAgKBA/ 6 BgAKBgQKBggKBg N 
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/ 6CAAKCAQKCAgKCA/ 6CgAKCgQKCggKCg/ 6DAAKDAQKDAgKDA/ 6D/AKD/QKD/ \ 
gKD/ / 8 AAAMAAQMAAgMAA/ 8 AgAMAgQMAggMAg / 8 B AAMB AQMBAgMB A / 8BgAMBg\ 
QMBggMBg / 8CAAMCAQMCAgMCA/ 8CgAMCgQMCggMCg / 8DAAMDAQMDAgMDA/ 8D/ \ 
AMD/QMD/ gMD/ / / 8 AAP8AQP8 AgP8 A/ / 8gAP8gQP8ggP8g/ / 9 AAP9 AQP9 AgP9 A\ 
5 / /9gAP9gQP9ggP9g/ /+AAP+AQP+AgP+A/ /+gAP+gQP+ggP+g/ / /AAP/AQP/A\ 

gP/A/ // /AP/ /QP//gP///yH5BAEAAP8ALAAAAAAUABQAAAhYAP8JHEiwoEGB\ 
AhIKMKhwICGGCR9ClNiQokKLEQdCdK j xY sGKDDl+FCnx4L+MIU2 iHKmSZMeW\ 
MA+uLCnTJUK3xT3HOf DkS5E2 f GzMG5bgRI OmfHXfmj CkwIAA7 \ 

> 

10 

set iconList [list SelectSolid Polygon Point Color Line Cut PointerSingle SelectHollow Symbol Circle 

Rectangle Blank Copy Pin PointerHead Move Code PointerMultiple J 

> 

iat . antsvo . txt 
15 # Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

# iat.antsvg.tcl 

20 namespace eval iat: : ant { 
} 



# NOTE! ! ! 

# Modelled after the iat : : roi : : roiDraw* functions 

25 

proc iat :: ant: -.midpoint { ptl pt2 } { 

set xl [lindex $ptl 0] ' 
set yl t lindex $ptl 1] 
set x2 (lindex $pt2 0] 
30 set y2 [lindex $pt2 1J 

set x3 £expr round ( ($xl+$x2)/2 )] 
set y3 [expr round( ($yl+$y2)/2 )] 
return [list $x3 $y3] 

> 

35 

proc iat : : ant : : smoothpoly { type pts } { 



set Istpt [lindex $pts end) 
set flip 0 

4 0 foreach pt $pts { 

set mid [midpoint $ lstpt $pt] 
set ql [midpoint $ lstpt $mid] 
set q2 [midpoint $mid $pt] 
lappend tmps [join $ql ","] 

45 lappend tmps [join $mid •,'•] 

lappend tmps [join $q2 " , ■ ] 
#lappend tmps [join $pt ","] 
set lstpt $pt 

} 

50 set s [lindex $tmps 0] 

set tmps [Ireplace $tmps 0 0] 

lappend tmps $s 

set s [lindex $tmps 0] 

lappend tmps $s 
55 set s "M[ lindex $tmps 0)" 

set tmps [Ireplace $tmps 0 0 $s] 

set s "Cflindex $tmps 1J " 

set tmps [Ireplace $tmps 1 1 $s] 

60 # doctor for edge. . . 

if {$type m "edge") { 

set s "M[ lindex $tmps 3]* 
set tmps [Ireplace $tmps 0 3 $s] 
set tmps [Ireplace $tmps end end) 
65 set tmps [Ireplace $tmps end end] 

) 



return $tmps 

) 

70 

proc iat : ; ant : : ant_make_svg_pointer { ns ptnum lvl } { 
variable TRACE 

if {$ TRACE) { puts "iat: :ant: : ant_make_svg_po inter : $ns $ptnum $lvl - ) 

75 variable antkey 

variable order 

variable points 

variable heads 

variable verts 
80 variable tails 

variable dSYMs 
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variable dPTRs 
variable kind 
variable code 
variable symbol 
variable label 



variable color 
variable linecolor 
variable fillcolor 
10 variable symbolFont 

variable pxl 



#variable styleFont Small 
#variable styleFontDe fault 
15 # variable styleFont Large 

upvar #0 [join [list [namespace 

upvar #0 [join [list [namespace 

upvar #0 [join [list [namespace 

20 upvar #0 [join [list [namespace 

upvar #0 [join [list [namespace 



current] $ns canvas]' ::] canvas 

current] $ns imageX] : : ] imageX 

current] $ns imageY) ::] imageY 

current] $ns of f setX] : : ] of f setx 

current] $ns of f setY] : : ] of f setY 



#set xl [expr $x -5] 
#set x2 [expr $x +5] 
25 #set yl [expr $y -5] 

#set y2 [expr $y +5] 

#$canvas create rect $xl $yl $x2 $y2 -fill "" -outline yellow -width 2 -tags [list handle $roiKey] 

#set bfsz $styleFontDefault 
30 # switch $size { 

# "small* { set bfsz $styleFontSmall) 

# "default" { set bfsz $ styleFontDe fault > 

# "large" { set bfsz $ styleFont Large ) 
#) 

35 #set bfsz symbolFont 

#set fsz [expr round(ceil ( ( ($imageX + $imageY)/2) * 0.001 * $bfsz ))] 

#puts "font size = $fsz" 

tfont configure symbol -size $fsz 



40 set headpt [lindex $points $ptnum] 
set tailpt $ tails ($ptnum) 
if {$ tailpt == ""} { return } 
set draw_symbol $dSYMs($ptnum) 
set draw_style $dPTRs ($ptnum) 

45 

set ptrlen [lindex [x2pts_length $headpt $ tailpt] 0] 
if ([llength $verts ( $ptnum) ] > 0} { 

set angle [x2pts_angle $headpt [lindex $verts ( $ptnum) 0]] 
) else { 

50 set angle [x2pt spangle $headpt $ tailpt] 

) 

set svgorder iat-$order; append svgorder -pointer$ptnum 
set p "p" ; set h "h" 
55 #set svgorder 2 $ order; append svgorder 2 head-$ptnum 



set x [lindex $headpt 0] 
set y [lindex $headpt 1] 

set pinfo [create_pointer $ns $draw_style $ptrlen] 
60 if {$pinfo == -1) { return } 
if {[llength $pinfo] > 1> { 
set hppts $pinf o 
set sub 0 
if {$sub == 1) { 
65 set tmpa [x2pts_angle $headpt $tailpt] 

#puts "tmp angle = $tmpa" 
set ppts [points_rotate $tmpa $ppts] 
set ppts [points_translate_lst $x $y $ppts] 

#$canvas create line ■ $pointerPoint $symbolPoint" -width 2 -fill blue -tags [list adorner 

70 key$roiKey] 

} else { 

set hppts [points_rotate $angle $hppts] 

set hppts [points_translate_lst $x $y $hppts] 

} 

75 set tmps [list) 

lappend tmps $headpt 

set tmps [concat $tmps $verts ($ptnum) ] 
lappend tmps $tailpt 
$ makeXt breaks down points . . . 
80 set ppts [makelt $ns $ptnum $tmps] 

foreach {x y) $ppts { lappend tmpsl [list $x $y] ) 
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set tmpsl [smoothpoly area $tmpsl] 
#puts " tmpsl = $ tmpsl" 

set tmps2 $ppts 

5 lappend tmps2 [lindex $tmps2 0] [lindex $tmps2 1) 

set tmps2 (join $tmps2] 

set tmps3 $hppts 

#lappend tmps3 [lindex $tntps3 0] [lindex $tmps3 1] 
10 set tmps3 [join $tmps3] 



#$canvas create poly $ppts -smooth true -outline $linecolor -width 1 -fill $fillcolor -tags [list 
ant pointer key$antkey] 

#append str »<polyline id='testl' style= ' fill: black; fill-opacity : 0; strokerblack; stroke-width- 3 • 
15 #append str "points= • $ tmps2 • />\n" 

if {$draw__style "none") { 

append str "<g id= •$ svgorder ' >\n" 

append str - <path id= • $svgorder$p ' style= • fill :$f illcolor; f ill -opacity : 1 ; stroke :$f illcolor; 
stroke-width : 3 • " 
20 append str -d^' $tmpsl ' />\n" 

#$canvas create poly $hppts -outline $linecolor -width 1 -fill $f illcolor -tags [list ant 
pointer key$antkey) 

append str » <polygon id= 1 $svgorder$h' style=» fill : $f illcolor ; fill -opacity:!; 
stroke :$f illcolor; stroke-width:3 • " 
25 append str "points= 1 $tmps3 ' />\n" 

■ append str "</g>\n" 

}. else { < : - - - 

append str *<g id= •$ svgorder > >\n* 
append str "</g>\n" 

30 } 



set xt [lindex $tailpt 0] 
set yt [lindex $tailpt 1] 
35 # returns e or w 

set gl [iat: :ant: :gravity_label $angle] 
#puts "$angle = $gl" 
set dx 0 
set 6V 0 
40 set ta "middle" 

switch $gl { 

*w" { set ta "start"; set dx $pxl } 
"e" { set ta "end"; set dx -$pxl } 
default { set ta "middle" } 

45 } 



# interactive visual note "spot" 

set svgorder iat-$order; append svgorder -inote$ptnum 

#set iszr [expr round ( ceil ( ($imageX + $imageY)/2) * 0.001 * 5)] 

append str »<circle id=« $ svgorder ' cx=' [expr $xtj 1 cy = ' [expr $ytj • r='[expr $pxl] ' styles' fill: blue; 
s troke : whi te ; s troke-width .* 2px ' / >\n " 



#if {[regexp -nocase {e> $gl] > { 
55 # set dx [expr round($fsz* ( [string length $drawtext] /2) ) ] 

# set xt [expr $xt-$dx] 
#} 

#if ([regexp -nocase {w} $gl] } { 

# set dx [expr round($fsz* ( [string length $drawtext] /2) )] 
60 # set xt [expr $xt+$dx] 

#} 

set bfsz $symbolFont 

set fsz [expr round (ceil (( ($imageX + $imageY)/2) * 0.001 * [font configure $bfsz -size] ))} 
# temporary fix for minimum font size. . . 
65 if <$fsz < 12} { set fsz 12 } 
append fsz pt 
#puts "font size = $fsz" 



set svgorder iat-$ order; append svgorder -symbol $ptnum 

70 

switch $draw_symbol { 

"code" { set txt $code ) 
•symbol" { set txt $symbol } 
"label" ( set txt $label > 
75 "none" { set txt } 

default { set txt "?■ > 

) 



append str "<text id= ■ $svgorder ' x='[expr $xt+$dx] 1 y='$yt- style=' font-size :$fsz; baseline-shif t:-25%; 
80 text -anchor :$ta; f ill : $f illcolor • >" 
append str $txt 
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append str "</text>\n" 
return $str 

> 

5 

proc iat : • ant : : ant_make_svg_pointers { ns lvl ) { 
variable TRACE 

if {$TRACE> { puts "iat: rant: : ant «jmake_svg_po inters : $ns $lvl" ) 
10 variable heads 
set str "" 

foreach {key value} [array get heads] { 
if {$value == » ■ } { continue } 
15 append str [ant_make_svg_pointer $ns $key $lvl] 

} 

return $str 

) 

20 

proc iat : :ant: : ant_make_svg_ant { ns {key ■■} lvl } { 
variable TRACE 

if { $TRACE ) { puts B iat: :ant: :ant_make_svg_ant: $ns $key $lvl" } 

25 

variable antkey 
variable order 
variable points 
variable kind 
30 variable symbol 
variable label 
variable caption 

variable color i 
35 variable fillcolor 
variable linecolor 

upvar #0 [join [list [namespace current) $ns canvas] ::} canvas 

upvar #0 [join [list [namespace current] $ns offsetX) ::] offsetx 

40 upvar #0 [join [list [namespace current] $ns offsetY] ::] offsetY 

set key [string tolower $keyj 
if {$key == "•} { set key $antkey } 
if {$key == "active" > {set key $antkey } 
45 if {$key ==■»>{ return "•} 

#ant_erase $ns $key 

#if {$key != $antkey} { ant_load $ns $key > 
ant_load $ns $key 

50 

ant_draw_precalc $ns 
set str 

55 if {$kind == "none") { return } 
if {$kind == -group") { 

set gtag "<symbol id= 1 $order ■ >\n" 

append gtag "<title> [STRXML "group label" J </title>\n" 

append gtag "<desc>\n" 
60 #append gtag ■ <symbol> [STRXML "group symbol") </symbol>\n" 

#append gtag ■ <label> [STRXML "group label"] </label>\n« 

#append gtag " <caption> [STRXML "group caption"] </caption>\n" 

append gtag "</desc>\n" 

append gtag "</symbol>\n" 
65 return $gtag 

) 

set part "all" 

7 0 #onmouseover= 1 targe t_visible ( evt ) 1 onmouseout= • targe t_hidden {evt ) • 

switch $part { 
■none" {} 
■pointer" {} 
# all or region 
75 default { 

set tmps [smoothpoly $kind $points] 



80 



set tmps 2 $points 

lappend tmps 2 [1 index $tmps2 0] 

set tmps2 [join $tmps2] 
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set svgorder iat-$order; append svgorder -region 
switch $kind { 
"area" { 

append str B <path id= • $svgorder • style= 1 f ill: $f illcolor; fill-opacity : 0; 
5 stroke: $f illcolor; stroke-width: 3 ' a 

append str "d=' $tmps' />\n" 

#append str " <polyline id= 1 $ svgorder -test ' style= • fill : black; fill-opacity : 0 ; 
stroke :black; stroke- width: 3 • * 

iappend str "points^ $tmps2 ' />\n" 
10 #$canvas create poly $tmps -outline $f illcolor -width 2 -fill " B -tags (list roi 

key$roiKey $order] 
} 

■ edge ■ { 

#set tmps [join $points] 

15 append str "<path id= '$ svgorder * style= 1 fill : $f illcolor; fill-opacity: 0; 

stroke :$f illcolor; stroke-width : 3 ' ■ 

append str B d=' $tmps' />\n" 

#$canvas create line $tmps -width 2 -fill $f illcolor -tags [list roi key$roiKey $order] 

} 

20 # point is default! 

default { 

foreach {x y} $tmps { 

#$canvas create oval [expr $x-6] [expr $y-6] [expr $x+6] [expr $y+6] -outline 
$f illcolor -width 3 -fill -tags [list roi key$roiKey $order] 
25 } 
} 

> 



30 



set svgorder iat-$order; append svgorder -inote 
append str *<g id= • $ svgorder • ></g>\n" 



switch $part { 
35 -none- {} 

•region" {) 

# all or pointer 

default { 

append str [ant_make_svg_pointers $ns $lvl] 

40 } 
} 



# add 'g* tag for group 
set gtag B <symbol>\n B 
45 append gtag "<title> [STRXML $ label] </title>\n" 
#append gtag "<desc>\n" 

set symid iat-$order; append symid -symbol 

#append gtag * <symbol id= 1 $symid ' > [STRXML $symbol] </symbol>\n B 
append gtag ■ <text id=*$symid*> [STRXML $symbol] </text>\n n 
50 set lblid iat-$order; append lblid -label 

#append gtag - <labelid='$ lblid' > [STRXML $ label] </label>\n- 
append gtag " <text ids>$lblid*> [STRXML $label] </text>\n" 
set capid iat-$order; append capid -caption 

#append gtag " <caption id= l $capid , > [STRXML $caption] </caption>\n" 
55 append gtag ■ <text id=' $capid'> [STRXML $caption] </text>\n" 
#append gtag n </deso\n" 
append gtag $str 
append gtag ■ \n</svmbol>\n w 



60 return $gtag 
) 



proc iat : rant : : ant_make_svg .menu { ns lvl } { 
variable TRACE 

65 if {$TRACE} { puts " iat : : ant : : ant_make_svg_jnaenu : $ns $lvl" } 
variable view 



upvar #0 [join [list [namespace current] $ns orders] ::] orders 

70 upvar #0 [join [list [namespace current] $ns polys] ::] polys 

upvar #0 [join [list [namespace current] $ns inviews] ::] inviews 

upvar #0 [join [list [namespace current] $ns symbols] ::] symbols 

upvar #0 [join [list [namespace current] $ns labels] ::] labels 



75 array set viewArray [list] 



set str 

append str -<defs>\n* 

append str - <menu id=»NewMenu' xmlns= *http: //foo' onload='GetPosition( evt ) »>\n" 
80 #append str " <header>Annotation Menu< /header >\n B 
#append str ■ <separator />\n B 
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> ^ 
append str • <menu>\n ,r " 

append str " <header> Annotations < /header >\n* 
#append str ■ <separator />\n" 
# create by order 

5 foreach {key val} [array get orders) { set ord2key ( $ val ) $key } 
set ords [array names ord2keyJ 
set ords [Isort -dictionary $ords] 
set arr [list) 
foreach ord $ords { 
10 #append symbols [ ant_jnnake_svg_ant $ns $key $lvl) 

set key $ord2key ($ord> 

if {![info exists polys ($key) ] ) { continue ) 
if { $polys($key) == [list]} { continue } 
lappend arr \ ' $ord\ ' 
15 set ord $orders($key) 

if {[info exists symbols ($key) ) } { set sym $symbols ($key) 
) else { set sym ■?" } 

if {[info exists labels ($ key) ) } { set Ibl $labels <$key) 
} else { set lbl "?" } 
20 set item "menu-$ord" ; append item "-annotation" 

append str ■ <item id= » $item * onactivate= ■ antToggleShowAnt ( $ord, true , true ) • checked= ' yes 1 > 
$ord: $lbl </item>\n" 

# setup view data too . . . 

if {[info exists inviews ( $key) ] } { set ivs $inviews ($key) 
25 ) else { set ivs ■ " } 

foreach v [split $ivs] { 

if {[info exist viewArray ( $v) ] } { 
set tmp $ viewArray ($v) 
append tmp ■ , \ 1 $ord\ 1 ■ 
30 set viewArray { $v) $tmp 

) else { 

set tmp ■\ , $ordV n 
set viewArray ($v) $tmp 

) 

35 } 
) 

set arr "\[[join $arr B ,")\)" 
append str " </menu>\n" 
append str " <separator />\n B 
40 append str ■ <menu>\n" 

append str ■ <header>Views< / header >\n" 
set iid " " 

if {$view == "ALL"} { set iid • id= \ « currentIATView\ " n } 

append str " <item $iid onactivate=\ " antSetViewText ( ' ALL ' ) ; antSetShowAll ( $arr, true , true ) \ ■ > ALL 
45 </item>\n" 
set iid 

if {$view == "NONE" ) { set iid " id=\" current I ATView\ " " } 

append str " <item $iid onactivate=\ " antSetViewText ( * NONE • ) ; antSetShowAll ( $arr , false , true) \ • > NONE 
</item>\n" 
50 set vws [array names viewArray) 
set vws [lsort -dictionary $vws] 
foreach vw $vws { 
set iid 

if {$view == $vw) { 1 
55 set iid ■ id=\" current IATViewX " n 

> 

set varr $viewArray ( $vw) 
append str ■ <item $iid 

onactiva te= \ " antSetViewText { • $vw • ) ; antSetShowAll ( $arr , false , false ) ; antSetShowAll ( \ [ $varr \ ) , true , true ) \ " > $vw 
60 </item>\n" 
) 

append str ■ </menu>\n" 
append str 1 <separator />\n" 

#append str • <item onactivate=\"antToggleShowAll <$arr, true) \"> Toggle </item>\n" 
65 tappend str " <item onactivate=\ "antSetShowAll ($arr, true, true) \"> Show </item>\n" 
#append str " <item onactivate=\ "antSetShowAll ($arr, false, true) \"> Hide </item>\n" 
#append str • <separator />\n" 
append str ■ <menu>\n B 

append str ■ <header>lnteractivity</header>\n" 
7 0 append s tr " <i tem id= ' menu -mouseovers 1 onactivate= \ " antToggleMouseOver Al 1 ( $arr , true ) \ " checked* 'no' > 
Mouseovers </item>\n" 

append str " </menu>\n" 

append str ■ <separator />\n" 

append str ■ <menu>\n" 
75 append str " <header>Window</header>\n" 

append str " <item action= ' Zoomln ' >Zoom &In</item>\n" 

append str ■ <item action= 1 ZoomOut ' >Zoom &Out</item>\n" 

append str ■ <item actions'OriginalView^& Original View</item>\n" 

append str ■ <item action^ 'Quality 1 >Higher &Quality</item>\n" 
80 append str • </menu>\n" 

append str " <separator />\n° 



10 
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append 


str 


append 


str 


cippci**-* 


str 


append 


str 


append 


str 


append 


str 


append 


str 


append 


str 


append 


str 


return 


$str 



1 <menu>\n" 

1 <header>About< /header >\n* 

' <item onactivate= • antAbout ( ) ' >About Annotations</item>\n a 
1 <item action= * About • >About SVG Viewer</item>\n B 
• <item action= •ViewSVG 1 >& View SVG</itero>\n" 

<item action= *ViewSource'>View Sourc&e</item>\n" 

</menu>\n B 

</menu>\n n 
•</defs>\n" 



> 

proc iat : : ant : : an t_make_s vg_vi ews { ns lvl } { 
15 variable TRACE 

if { $ TRACE } { puts "iat: rant: : ant jna3ce_svg_vi ews: $ns $lvl" } 



# 

# append views in svg <g> tags 
20 # 

upvar #0 [join [list [namespace current] $ns orders] ::] orders 

upvar #0 [join [list [namespace current] $ns polys) ::] polys 

upvar #0 [join [list [namespace current] $ns aheads] ::] aheads 

upvar #0 [join [list [namespace current] $ns kinds] ::] kinds 

25 upvar #0 [join [list [namespace current] $ns symbols] ::] symbols 

upvar #0 [join [list [namespace current] $ns labels] : : ] labels 

#set allords [list] 

#foreach key [array names iat :: roi :: orders ] { 
30 # set ord $iat : : roi : : orders ($key) 

# set lbl $iat: : roi: : symbols ($key) 

# set txts($ord) "$ord $lbl" 

# set kinds ($ord) $iat: : roi :: kinds ($key) 

# set views ( $ord) $iat : : roi : : views ( $key) 
35 # lappend allords $ord 

#) 

#set allords [lsort -dictionary $allords] 



set allords [list] 
4 0 foreach {key value) [array get polys) { 

set ord $orders ($key) 

set lbl $symbols($key)" 

set txts($ord) "$ord $lbl" 

set aheds($ord) $aheads ( $key ) 
45 set knds($ord) $kinds($key) 

set viws($ord) all 

lappend allords $ord 

) 

set allords [lsort -dictionary $allords] 
50 ffputs • allords = $allords" 

#set viewNames [array names viewData] 
#set viewNames (lsort -dictionary $ viewNames] 
set viewNames [list] 
55 set viewNames [concat [list NONE ALL] $viewNames] 

#puts "viewNames = $viewNames" 
foreach viewName $ viewNames { 

set spc " " 

set ordStack [list] 
60 set visibility hidden 

if { [info exists vdata] ) { unset vdata ) 

if {$ viewName == -NONE") { 

# no annotations. . . 

) elseif {$viewName == "ALL" ) { 
65 foreach ord $allords { set vdata ($ord> "all" } 

set visibility visible 
) else { 

#array set vdata $viewData($viewName) 

) 

70 set svg_notes 

set ords [array names vdata) 

set ords [lsort -dictionary $ords] 

append svg "<g id=' $viewName-view l style=» visibility :$ visibility '>\n" 
foreach {ord) $ords { 
75 set see $vdata($ord) 

#puts "$viewName: $ord » $see\n" 

# don»t write groups - no visual annotation 

set orderAnt iat-$ord; append orderAnt -annotation 
set orderRegion iat-$ord; append orderRegion -region 
80 set orderPointer iat-$ord; append orderPointer -pointer 

set order INote iat-$ord; append order INote -inote 



10 
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set order Symbol iat-$ord; append orderSymbol -symbol 
#puts " [1 index $ordStack end] == $ vi ewName - $ or d " 

while {[expr {[llength $ordStack] > 0) && {![regexp [lindex $ordStack end] $viewName-$ord] } ] } { 
set spc [string repeat ■ " [llength $ordStack] ] 

append svg "$spc</g><! — end [lindex $ordStack end] -annotation — >\n" 
set ordStack (Ireplace $ordStack end end] 

) 

set spc [string repeat ■ ■ [expr [llength $ordStack] +1]] 



set svg_jpointers ■ ■ 
foreach {key value) $aheds($ord) { 
15 if {$value == " " } { continue } 

#puts " ahed = $key\n" 

append svg__pointers "$spc <use id=' $viewName-$ order Point er$key 
xlink : href = * #$ order Pointer $key ■ />\n" 

append svg_jx>inters "$spc <use id= ' $viewName-$orderINote$key ' xlink:href = • #$orderINote$key • 
2 0 onmouseover= ' antSetMouseOverlNote { \ * $ord\ ■ # \ ■ $key\ " , true ) ' 

onmouseout= * antSetMouseOverlNote ( \ ■ $ord\ ■ , \ ■ $key\ ■ , false) • />\n" 

append svg_po inters "$spc <use id=* $viewName-$ order Symbol $key' 
xlink: href ='#$order Symbol $key' />\n" 

append svg_notes °$spc <use id= ■ $viewName- $ order INote' xlink : href = • #$ order INote 1 />\n» 

25 } 

lappend ordStack $viewName-$ord 
append svg "$spc<g id= • $viewName- $ order Ant 1 
onmouseover= , antSetMouseOverAnt(\-$ord\%true, false) ' onraouseout= 'antSetMouseOverAnt (\ m $oid\* , false, false) 1 
30 onclick= , antShowCaption(\"$ord\") '>\n" 
switch $see { 
•pointer" { 

#append svg "$spc <use id= • $viewName-$orderPointer ' xlink: href =' #$ order Pointer* 
onmouseover= ' onAntMouseOver ( evt ) ' onmouseout= * onAntMouseOf f ( evt ) ' /> \n " 
35 append svg •$spc <use id= ' $viewName- $ order Pointer ■ xlink : href =• #$order Pointer 1 />\n" 

append svg "$spc <use id=' $viewName-$order Symbol • xl ink : hr ef =•#$ order Symbol * />\n" 

"region" { 

#append svg • " $spc <use id= 1 $viewName-$orderRegion 1 xl ink: href = ' #$orderRegion ' 
4 0 onmouseover= 1 onAntMouseOver ( evt ) ■ onmouseout= • onAntMouseOf f { evt ) 1 / >\n" 

^ append svg "$spc <use id= • $viewName-$orderRegion • xlink . href = • #$orderRegion* />\n" 

"none" { 

append svg °$spc <! — none — >\n" 

45 ) 

default { 

#append svg "$spc <use id= ■ $viewName-$orderRegion ' xlink :href=*#$order Region' 
onmouseover= 1 onAntMouseOver ( evt) ' onmouseout= ' onAntMouseOf f (evt ) • />\n" 

# append svg "$spc <use id=' $viewName-$orderRegion-test 1 xlink : href =* #$orderRegion- test * 

50 />\n" 

append svg "$spc <use id=' $viewName-$orderRegion ! xlink : href =• #$orderRegion' />\n- 
append svg "$svg_pointers\n" 

# append svg "$spc <use id= * $viewName-$order Pointer • xlink :href= , #$orderPointer' />\n" 
♦append svg •$spc <use id= ■ $viewName-$ orderSymbol ' xlink : href * 1 #$orderSymbol • />\n" 
55 #append svg "$spc <use id= ■ $viewName-testl • xlink :href ='#testl 1 />\n" 

#append svg -$spc <use id= • $viewName-test2 ' xlink:href = ' #test2 • />\n" 

) 

) 

} 

60 while {[llength $ordStack] > 0} { 

set spc {string repeat ■ ■ [llength $ordStack] ] 

append svg -$spc</g><! — end [lindex $ordStack end] annotation — >\n" 
set ordStack [Ireplace $ordStack end end] 

) 

65 append svg "$svg__notes\n" 

append svg "</gx| — end $viewName-view — >\n" 

) 

return $svg 

70 } 

proc iat: :ant: : ant_make_svg_all { ns Ivl } { 
variable TRACE 

if ($TRACE) { puts "iat: :ant: :ant_make_svg_all: $ns $lvl" ) 

75 

upvar #0 [join [list [namespace current] $ns polys] ::] polys 

set menu ■ ■ 
set symbols 
80 set views "" 
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foreach {key value} [array get polys] { 

append symbols [ant_jnake_svg_ant $ns $key $lvl] 

) 

append views [ant__make_svg_views $ns $lvl] 
5 append menu [ant_make_svg_menu $ns $lvl] 

return [list "$menu" "$ symbols \n$views"] 

> 

iat . hey . txt 

10 # Copyright (c) 2001, 2002, University of Utah 

# All rights reserved. 
# 

# iat.tex.tcl 

15 package require uri 

namespace eval tex { 
variable TRACE 0 
variable next_nsid 1 

20 

) 

proc tex: :next_nsid { ) { 
25 variable next_nsid 

return [incr next_nsid] 

} 

30 namespace eval tex: :doc { } 

proc tex:: proc { ns and args } { 
variable TRACE 

if {$TRACE} { puts "tex::proc: $ns $cmd $args" } 



35 



upvar #0 [join [list [namespace current] doc $ns xml_str] : s 3 xml_str 



switch $cmd { 

"configure" { 
40 #puts ■ and = configure: $args" 

foreach {key value} $args { 

#puts ■ key = $key & value = $ value ■ 
switch — $key { 

■-xml" { doc_set_xml $ns $value } 
45 "-url" { doc__set_url $ns $value } 

•-file" { doc_set_file $ns $value } 

) 

} 

} 

50 "cget" { 

#puts ■ and = cget: $args" 
switch — [lindex $args 0] { 

"-url" { return [doc_get_url $ns] } 

} 

55 } 

■read" { 

return [doc_read $ns] 

} 

"parse" { 

60 return [doc_parse $ns $xml_str] 

} 

"dump" { 

doc_dump $ns 

) 

65 default { 

puts "ERROR unknown command = $cmd" 

) 

} 

70 return {) 
> 

proc tex : : create { args } { 
variable TRACE 
75 if {$ TRACE} { puts "tex: : create: $args" } 

set nsid [next_nsid] 

set ns [namespace current] doc: :id$ns id 

80 

namespace eval $ns { 



10 



15 



20 



25 



30 



# 
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variable xml 

array set xml [list] 

variable ID 999 
variable ns ■ • 
variable xml_str ■ " 

variable url ■ • 

variable eids 
variable tags 
variable opts 
variable dats 
variable nods 

variable eid 0 

variable tag "TAG" 

variable opt [list] 
variable dat 

variable nod [list] 

variable doc_Jby_eid 
variable doc_by_elt 

array set doc_by__eid [list] 
array set doc_Jby_elt [list] 

variable elt_to_widget 
variable elt_eid 
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} 



set cmd "proc [namespace current] :: doc : :id$ns id { and args } {eval [namespace current] : :proc id$nsid 
\$cmd \$args}" 
35 namespace eval : : $cmd 

eval • [namespace current] : :doc: :id$nsid configure $args" 



40 



} 



return [namespace current] :: doc: :id$nsid 



#proc unknown { args } { 
# puts "unknown: $args* 
#} 

45 proc tex: :clear_state { ns } { 



50 



upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns 


eids] 


::] 


eids 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns 


tags] 


::] 


tags 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns 


opts] 


: :] 


opts 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns 


dats] 


::] 


dats 


upvar 


10 


[join 


[list 


[namespace current] 


doc 


$ns nods] 


::] 


nods 



set eid 0 

set tag -TAG" 

55 set opt [list] 
set dat 

set nod [list] 



60 



proc tex: :stack_push { ns } { 



65 



70 



75 



80 



if {'[info exists eids (_TOS_) ] ) ( set eids <_TOS_) 0 } 

incr eids (_TOS_) 
set TOS $eids(_TOS_> 
set eids($TOS) $eid 
set tags($TOS) $tag 
set opts($TOS) $opt 



upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns eids] 




] eids 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns tags] 




] tags 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns opts] 




] opts 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns dats] 




] dats 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns nods] 


: : ] nods 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns eid] : 


] 


eid 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns tag] : 


') 


tag 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns opt] : 


.] 


opt 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns dat] : 


] 


dat 


upvar 


#0 


[join 


[list 


[namespace current] 


doc 


$ns nod] : 


1 


nod 
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set dats($TOS) $dat 
set nods($TOS) $nod 

cleans tate $ns 



5 } 



proc tex: xstackupop { ns } { 





upvar 


#0 


[join 


[list 


[namespace 


10 


upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 


15 


upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 




upvar 


#0 


[join 


[list 


[namespace 



20 
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if {![info exists eids (_TOS_) J } { return 0 } 
if {$eids(_TOS_) == 0} { return 0 } 
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: ] eids 

: ] tags 

: ] opts 

: : ] dats 

; : ] nods 

;] eid 

s] tag 

;] opt 

:] dat 

: ] nod 



set TOS $eids(_TOS_) 
25 set eid $eids($TOS) 

set tag $tags($TOS) 
set opt $opts($TOS) 
set dat $dats($TOS) 
set nod $nods($TOS) 
30 incr eids(_TOS_) -1 



#puts "nodes: $nod" 

unset eids<$T0S) 
35 unset tags($TOS) 
unset opts($TOS) 
unset dats($TOS) 
unset nods($TOS) 



40 return 1 

) 

proc tex: : tos_add_node { ns n } { 
variable TRACE 
45 if {$TRACE} { puts ■ tex : : stack^adcUaode : $n" } 

upvar #0 [join [list [namespace current] doc $ns eids] ::] eids 

upvar #0 [join [list [namespace current) doc $ns tags] ::] tags 

upvar #0 [join [list [namespace current] doc $ns opts] ::] opts 

50 upvar #0 [join [list [namespace current] doc $ns dats] ::] dats 

upvar #0 [join [list [namespace current] doc $ns nods] ::) nods 

if {![info exists eids <_TOS_) ] > { return 0 } 



55 lappend nods ( $eids (_TOS_) ) $n 

#puts ■ tos nodes: $nods <$eids(_TOS_> > • 



return 1 

} 

60 

proc tex: :setjiode { ns eid tag opt dat nod } { 
variable TRACE 

if ($TRACE) { puts -tex: :set^node: $ns $eid $tag ..." ) 

65 upvar #0 (join [list [namespace current] doc $ns doc_by_eid] ::] doc_by_eid 
upvar #0 [join [list [namespace current] doc $ns doc_by_elt] ::] doc_by_elt 

set doc_by_eid($eid) [list eid $eid tag $tag opt $opt dat $dat nod $nod] 
lappend doc_Jby_elt <$tag) $eid 

70 } 

proc tex: :doc_dump { ns } { 
variable TRACE 

if {$TRACE> { puts "tex: :doc_dump: $ns" } 

75 

upvar #0 [join [list [namespace current] doc $ns xmlj ::] xml 

upvar #0 [join [list [namespace current] doc $ns docJby_eid] ::] doc_by_eid 

upvar #0 [join [list [namespace current] doc $ns doc_by_elt] ::) doc_by_elt 



80 puts " . ° 

set keys [array names xml] 



WO 2004/057439 



- 116 - 
Appendix 2 



f oreach key $keys { 
puts "xml $key = 

} 



$xml($key) ' 



5 set eids [array names doc_by_eid] 

set eids [lsort -integer $eids] 
foreach eid $eids { 

#puts - eid $eid = $doc_J>y_eid ( $eid) ■ 
array set A $doc_by_eid($eid) 

10 puts ■ ■ 

puts • eid: $A(eid) - 
puts ■ tag: $A(tag)- 
puts " opts: $A(opt)" 
puts ■ data: \"$A(dat)\"- 
15 puts " nodes: $A(nod) ■ 
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} 

proc tex: : slave_unknown { ns and args } { 
20 variable TRACE 

if {$TRACE} { puts "tex: :slave_unknown: $ns $cmd $args" } 



25 



30 



upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 
upvar #0 



[join 
(join 
[join 
[join 
[join 
[join 
[join 
[join 



[list 
[list 
[list 
[list 
[list 
[list 
[list 
[list 



(namespace 
[namespace 
[namespace 
[namespace 
(namespace 
[namespace 
[namespace 
[namespace 



current ] 
current] 
current] 
current] 
current] 
current] 
current] 
current] 



doc $ns 
doc $ns 
doc $ns 
doc $ns 
doc $ns 
doc $ns 
doc $ns 
doc $ns 



xml] 

ID] : 

eid] 

tag] 

opt] 

dat] 

nod] 

tns] 



:] xml 

3 ID 

] eid 

] tag 

3 opt 

] dat 

] nod 

] tns 



35 



#set tag [1 index $args 0] 
#set data $args 



#puts "length: [llength $data] " 
if {[regexp < A <\?xml) $cmd mat] } { 

# xml document — 
foreach token $args { 

40 if {$token == •?>"} { 

break 

} elseif ([regexp { (\w+) = (\ * | \° ) (\S+) (\ • | \" ) ) $ token mat key a val b] } { 
#puts -option: $key = \«$val\"" 
set xml($key) $val 

45 } 
} 

clear_state $ns 
} elseif {[regexp {"<! — ) $cmd mat] } { 
50 # comment 

> elseif {[regexp (*</(\S+>>) $cmd mat tag]} ( 

# close tag 

stacK-Jpop $ns 
55 set dat (string trim $dat] 

tos_adcL_node $ns $eid 

set_node $ns $eid $tag $opt [XMLSTR $dat] $nod 

#puts ■ eid: $eid- 

60 #puts ■ tag: $tag" 

tputs ■ opts: [array get opt]" 

#puts • data: \"$datV 

#puts " nods: $nod" 

65 clear_state $ns 

} elseif {[regexp {*<(\S+)>> $cmd mat tag]) { 

# start tag 

#puts 1 tag start = $tag" 
70 set eid [incr ID] 

set endUtag 0 
set is_data 1 
set opt [list] 
75 set dat 

set nod (list) 
foreach token $args { 
if {$is_data> { 

if {[regexp "</$tag>° $token] > { 
80 set end^tag 1 

continue 
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) else { 

append dat °$ token 

} 



if {!$end_tag} { 

stack_push $ns 
} else { 

10 set dat [string trim $dat] 

tos_adcL_node $ns $eid 

set_node $ns $eid $tag $opt fXMLSTR $dat] $nod 

#puts " eid: $eid B 

15 #puts • tag: $tag" 

#puts " opts: [array get opt) " 

#puts - data: \"$dat\" B 

#puts ■ nods: $nod' 

20 clear_state $ns 

} 

} elseif {[regexp {*<(\S+)) $cmd mat tagj } { 
# start tag with arguments 
25 set eid [incr ID] 

set endLtag 0 
set is_data 0 
set opt [list] 
30 set dat 

set nod [list] 
f oreach token $args { 
if ($is_data) { 

if {(regexp "</$tag>- $ token ] } { 
35 set end_tag 1 

continue 
} else { 

append dat •$ token ■ 

) 

40 } else { 

if <$token == ">■} { 
set is_data 1 
continue 
} elseif {$ token == ■/>■> { 
45 set end_tag 1 

continue 

} elseif {[regexp { (\w+)= (\ • | \- ) {\S+) (\ • | \- ) } $token mat key a val b] } { 
#puts "option: $key = \-$val\"» 
#set opt($key) $val 
50 lappend opt $key $val 

) 

} 

) 

55 if {!$end_tag} { 

stack^push $ns 
} else { 

set dat [string trim $dat] 

tos_add_node $ns $eid 
60 set_jnode $ns $eid $tag $opt [XMLSTR $dat} $nod 

#puts • eid: $eid* 

#puts ■ tag: $tag" 

#puts • opts: {array get opt] ■ 

65 #puts ■ data: \"$dat\-" 

#puts " nods: $nod" 



70 



75 



clear_state $ns 

) 

} else { 

# unknown command 

error "invalid command name \"$cmd\« 

) 



tputs • tag: $tag" 
#puts "data: $data" 
#puts -long: (llength $data}« 
#set cmd "set doc $data» 
80 tputs "cmd a $cmd" 
#set rv [eval $cmd) 
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#puts "doc = $doc* 

#if {[llength $doc] == 1 ) { return [1 index $doc 0) } 

#set rv [list tex::tag $tag [eval $doc] ] 

return 

5 } 

proc tex: :doc__set_xml { ns str } { 
variable TRACE 

if {$TRACE> { puts "tex: :doc_set_xml : $ns $str" } 

10 

upvar #0 [join [list [namespace current] doc $ns xml_str] ::] xml_str 
set xml_str $str 

) 

15 

proc tex: :doc_set_url { ns u > { 
variable TRACE 

if ($TRACE) { puts ' tex : : doc_set_url : $ns $u" } 
20 upvar #0 [join (list [namespace current] doc $ns url] ::] url 
set url $u 

) 

25 proc tex: :doc_get_url { ns } { 
variable TRACE 

if {$TRACE} { puts "tex: : doc_get_ur 1 : $ns" } 

upvar #0 [join [list [namespace current] doc $ns url] ::] url 

30 

return $url 

> 

proc tex : : doc_read { ns } { 
35 variable TRACE 

if {$TRACE) { puts "tex: :doc_read: $ns" } 

upvar #0 [join [list (namespace current] doc $ns url] ::] url 

40 puts "url = $url" 

array set A [uri:: split $url] 

# for each (key val} [array get A] { 

# puts "$key = $val" 
#> 

45 

switch $A( scheme) { 
■file" { 

set fh [open $A(path) r] 
set str [read $fh] 
50 close $fh 

doc_jparse $ns $str 

} 

"http" { 

55 } 

default { 



60 

} 

proc tex : : doc_parse { ns args } { 
variable TRACE 
65 if {$TRACE> ( puts -tex: :doc_parse: $ns ..." } 

set i [interp create -safe A] 

interp alias $i unknown (} [namespace current] : : slave_unknown $ns 
#puts ■ aliases = [interp aliases $i] • 
70 regsub -all {;} [lindex $args 0] {\;} str 
tputs $str; exit 

if { [catch {interp eval $i $str) err] > { 
#pats • error = $err" 
err^r $err 
75 interp delete A 

) 

interp delete A 



80 # regsubs < > & ■ ' for xml. 
proc tex : : XMLSTR ( str } { 
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regsub -all <\;> $str {;) strl 

regsub -all <\<> $strl {<> str2 

regsub -all (\>> $str2 {>} str3 

regsub -all {\"> $str3 { ■ } str4 

regsub -all (\&apos;) $str4 {'} str5 

regsub -all (\&) $str5 (\&) str6 

return $str6 
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} 



10 if {0} { 

set doc [tex::create -url f ile: . /BackOl .xml) 
$doc read 
$doc dump 
exit 

15 > 

iat.antptr.txt 

# Copyright (c) 2001/ University of Utah 

# All rights reserved. 
# 

20 # iat . antptr . tcl 



namespace eval iat:: ant { 

variable pxl 
25 variable px2 

variable px3 

variable px4 

variable px5 

variable px6 
30 variable len 

variable siz 

set pxl 10 
set px2 10 
35 set px3 10 

set px4 10 
set px5 10 
set px6 10 

40 variable styleSizeSmall 0.002 

variable styleSizeDefault 0.005 
variable styleSizeLarge 0.010 

variable pointerNames [list none line wedge arrow] 

45 ) 



proc iat: :ant: :calc_size { ns ) { 
variable pxl 
50 variable px2 

variable px3 
variable px4 
variable px5 
variable px6 

55 

variable styleSizeSmall 
variable styleSizeDefault 
variable styleSizeLarge 

60 upvar #0 [join [list [namespace current] $ns ixnageX] ::] imageX 

upvar #0 [join [list [namespace current] $ns imageY] ::] imageY 

set percent 0.005 

#puts -calcOther: $iat: :roi: :size" 
65 set size default 
switch $size { 

• small" { set percent $styleSizeSmall ) 

"default" { set percent $styleSizeDefault ) 

"large" ( set percent $styleSizeLarge ) 

70 > 

# ave of image x & y 

if ($iroageX == 0) { return) 

if <$imageY == 0} { return) 
75 set ave [expr ($imageX + $imageY)/2 3 

set pxl (expr round (ceil ($ave * $percent) ) ] 

set px2 [expr $pxl * 2] 

set px3 [expr $pxl * 3] 

set px4 [expr $pxl * 4] 
80 set px5 [expr $pxl * 5] 

set px6 [expr $pxl * 6] 
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) 

proc iat: rant: :points_translate { dx dy pts } { 
5 #puts *iat: :ant: :points_translate: $dx $dy B 

#puts ■ points = $pts" 
set newpts [list] 
foreach pt $pts { 

set x [expr [lindex $pt 0] + $dx] 
10 set y [expr [lindex $pt 1] + $dy] 

lappend newpts [list $x $y] 

> 

return $newpts 

> 

15 

proc iat : rant r :points_translate_lst { dx dy pts } { 
set ptsn [listj 
foreach {x y> $pts { 

set xn [expr $x + $dx) 
20 set yn [expr $y + $dy] 

lappend ptsn $xn $yn 

) 

return $ptsn 

> 

25 

proc iat: :ant: :point__rotate ( angle x y } { 

#puts 'iat: :ant: : pointer otate: $angle $x $y° 
t rotate point around origin. . . 
set radius [expr sqrt ( ($x*$x) + ($y*$y) ) J 
30 set radians [expr atan2 ($y, $x) ] 

set radians [expr $radians + (-l*$angle*3 .1416) /180] ; 
set xn texpr round (ceil ($radius*cos <$radians) )) 3 
set yn [expr round { ceil ($radius * sin ($radians) )) ] 
return [list $xn $yn] 

35 } 

proc iat: rant : :points_rotate { angle pts } { 
set ptsn [list] 
foreach {x y} $pts { 
40 set ptn [point_rotate $angle $x $y3 

set xn [lindex $ptn 0] 
set yn [lindex $ptn 1] 
lappend ptsn $xn $yn 

> 

45 return $ptsn 
} 

proc iat: rant: :x2pts_length {ptl pt2} { 

#puts "2ptsLength: $ptl $pt2« 
50 set xl [lindex $ptl 0] 

set yl [lindex $ptl 1] 

set x2 [lindex $pt2 0] 

set y2 [lindex $pt2 1] 

if {$xl > $x2> { 
55 set x [expr $xl - $x2] 

) else { 

set x [expr $x2 - $xl] 

) 

if {$yi > $y2} { 
60 set y [expr $yl - $y2] 

} else { 

set y [expr $y2 - $yl) 

) 

set len [expr sqrt ( ($x*$x) + ($y*$y) ) ] 
65 return (list [expr round($len)J $x $yl 
) 

proc iat: rant: :x2pts_angle {ptl pt2) { 

#puts -2ptsAngle: $ptl $pt2" 
70 set rv [x2pts_length $ptl $pt2) 

#set len [lindex $rv 0] 

set rvx [lindex $rv 1] 

set rvy [lindex $rv 2] 

set radians [expr atan2($rvy,$rvx) 1 
75 set angle [expr ( ($radians*180) / (3 .1416) ) ] 

set x [expr (lindex $pt2 0]- (lindex $ptl 0]] 

set y (expr (lindex $pt2 1] -[lindex $ptl 1]J 

#puts "ptl = $ptl" 
80 #puts «pt2 * $pt2* 

#puts "x = $x , y ss $y" 
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if { $x == 0} { 

if {$y >= 0} { 

set angle [expr $angle + 0) 
} else { 

5 set angle [expr $angle + 180] 

} 

} elseif ($x > 0} { 
if {$y == 0} { 

set angle (expr $angle + 0] 
10 } elseif {$y > 0} { 

set angle [expr $angle + 0] 
) else { 

set angle [expr 360 - $angle] 

} 

15 > else { 

if {$y == 0} { 

set angle [expr $angle + 180] 
) elseif {$y > 0} { 

set angle [expr 180 - $angle] 
20 } else { 

set angle [expr $ angle + 180] 

} 

) 

return [expr -l*ceil ($angle) ] 

25 } 

proc iat: :ant: :pointer__line {tlen) { 

variable pxl 

variable px2 
30 variable px3 

variable px4 

variable px5 

variable siz 

set xo 0 
35 set yo 0 

set sss [expr round (ceil ($pxl/4) ) ] 

# line head 
set pts [list] 
lappend pts $xo $yo 

40 lappend pts [expr $xo + $px4J [expr $yo - $pxl) 
lappend pts [expr $xo + $px4] [expr $yo + $pxlj 

return $pts 

#return [list $lbl $pts] 

45 } 

proc iat : : ant : : pointer_arrow < tlen } { 

variable pxl 

variable px2 
50 variable px3 

variable px4 

variable px5 

variable siz 

set xo 0 
55 set yo 0 

# arrow head 
set pts [list) 
lappend pts $xo $yo 

lappend pts (expr $xo + $px3] [expr $yo - $px3J 
60 lappend pts [expr $xo + $px3] [expr $yo - $pxl] 
lappend pts [expr $xo + $px3] [expr $yo + $pxl] 
lappend pts [expr $xo + $px3] [expr $yo + $px3] 

return $pts 
65 #return [list $lbl $pts] 
) 

proc iat: :ant : :pointer_diamond {tlen} { 

variable pxl 
70 variable px2 

variable px3 

variable px4 

variable px5 

variable siz 
75 set xo 0 

set yo 0 

# diamond head 
set pts [list] 
lappend pts $xo $yo 

80 lappend pts [expr $xo + $px3] [expr $yo - $px2J 
lappend pts [expr $xo + $px5] [expr $yo - $pxl] 
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lappend pts [expr $xo + $px5] [expr $yo + $pxl] 
lappend pts [expr $xo + $px3] [expr $yo + $px23 

return $pts 
5 #returo [list $lbl $pts] 
} 

proc iat : : ant : : create_po inter { ns type {size 0) ) { 
10 calc_size $ns 



switch $type { 
"none" { 

return [pointer_line $size] 

15 } 

•line" { 

return [pointer^ line $size] 

} 

"arrow" { 

20 return [pointer_arrow $size] 

} 

"diamond" { 

return [pointer_diamond $size] 

} 

25 default { 

return -1 

) 

} 

} 

30 

proc iat: rant: :nearest__point {point points) { 
set mind 10000 
set idx 0 
set minidx 0 
35 foreach p $points { 

set rv [x2pts_length $point $p] 
set d [lindex $rv 0] 

if {$d < $mind} { set mind $d; set minidx $idx } 
incr idx 

40 } 

return $minidx 

} 

proc iat: rant: : gravi ty_angle { grav } { 
45 switch $grav { 
"N" { 

return 90 

) 

•E" { 

50 return 0 

) 

"S" { 

return 270 

} 

55 "W" { 

return 180 

} 

"NE" { 

return 45 

60 } 

"SE" { 

return 315 '* 

} 

"SW" { 

65 return 225 

) 

"NW" { 

return 135 

} 

70 default { 

$ C (center) 
return 0 

> 

} 

75 ) 

proc iat : r ant : : gravi ty_label { angle ) { 
set angle [expr §angle * -1) 
#puts • iat : : ant : : gravi tyLabel : $angle" 
80 # note: drawing begins at 0 degrees and rotates clockwise 
if {$angle > 0) ( 



10 
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if {$angle < 90} { 

return w 
} elseif {$angle < 180) { 

return e 
) elseif {$angle < 270} { 

return e 
} elseif {$angle < 360} { 

return w 
} else { 

return c 

} 

} else { 

return c 
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15 } 



20 



proc iat: :ant: :gravityl»abelOld { grav } { 
switch $grav { 
"N" { 

return "s" 

} 

"E" { 

return "w" 



25 



return "n" 



30 



■W" { 

return • e ■ 

) 

-NE° { 

return "sw" 



35 



return "nw" 



■SW° { 

return "ne" 



40 



45 



return "se" 

} 

default { 

# C (center) 
return B c" 

) 



} 

50 proc iat: :ant : :gravity_point { grav pts } { 

set wxi 0 ; set wxpjLOOOO ; set exi 0 ; set exp 0 
set nyi 0 ; set nyp 10000 ; set syi 0 ; set syp 0 
# find extremes ... 
set idx 0 
55 foreach {x y) $pts { 
if {$x < $wxp} { 

set wxp $x ; set wxi $idx 



60 



65 



70 



75 



80 



} 

if {$x > $exp} { 

set exp $x ; set exi $idx 

} 

if <$y < $nyp} { 

set nyp $y ; set nyi $idx 

> 

if ($y > $syp) { 

set syp $y ; set syi $idx 

) 

incr idx 

} 

# return index of pt for gravity. . 
switch $grav { 
"N" { 

return $nyi 

) 



"E" { 

return $exi 

) 

•S" { 

return $syi 

} 

"W" { 
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return $wxi 

} 

•NE- { 

if <$nyi == $exi} { 
return $nyi 

> 

if {$exi == 0} { 

set exi [expr [llength $pts]/2] 

} 

if {$nyi == [expr $exi-l] } { 

return $nyi 
} else { 

return [ expr round ( $nyi+ ( { $exi - $nyi ) / 2 ) ) ] 

} 

} 

'NW" { 

if {$nyi == $wxi} { 
return $nyi 

> 

if {$nyi == 0} { 

set nyi [expr [llength $pts)/2] 

> 

if {$nyi [expr $wxi+l] } { 

return $nyi 
> else { 

return [ expr round ( $nyi- ( ( $nyi -$wxi ) /2 ) ) ] 

) 

} 

"SB* { 

if {$syi == $exi) { 
return $syi 

} 

if {$syi == 0} { 

set syi [expr [llength $pts]/2] 

} 

if <$syi == [expr $exi+l] } { 

return $syi 
) else { 

return [expr round ( $syi- ( ($syi-$exi) /2) ) ] 

} 

} 

"SW" { 

if {$syi == $wxi} { 
return $syi 

> 

if <$wxi == 0} { ' 

set wxi [expr [llength $pts]/2] 

} 

if {$syi == [expr $wxi-l] } { 

return .$syi 
} else { 

return [expr round ( $syi+ ( ($wxi-$syi) /2) ) ] 

> 

} 

default { 

return -1 

) 



{0} { 

puts "testing..." 
set pi [list 1 0] 
set p2 [list 0 1] 

puts "Length [join $pl ,] [join $p2 [join [ iat : : ant : : 2ptsLength $pl $p2] : ] ■ 

set pi [list 1 0] 
set p2 [list -1 0) 

puts "Length [join $pl ,3 [join $p2 [join [iat: :ant: :2ptsLength $pl $p2] :]■ 

set pi [list 1 1] 
set p2 [list -1 -13 

puts "Length (join $pl ,3 (join $p2 ,3: [join [ iat : : ant : : 2ptsLength $pl $p2] :3" 
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set pl Hist 0 0) 
set p2 [list 1 03 

puts "0 Angle [join $pl ,3 [join $p2 [iat : :ant : :2ptsAngle $pl $p2] " 

5 set pl [list 0 0] 
set p2 (list 1 1] 

puts "45 Angle [join $pl ,] [join $p2 ,]: [iat : :ant : :2ptsAngle $pl $p2] " 

set pl (list 0 0) 
10 set p2 [list 0 1) 

puts M 90 Angle [join $pl »] [join $p2 ,]: [ iat : : ant : : 2ptsAngle $pl $p2] " 

set pl [list 0 0] 
set p2 [list -1 1] 

15 puts "135 Angle [join $pl ,] [join $p2 , ): [ iat : : ant : : 2ptsAngle $pl $p23 

set pl [list 0 03 
set p2 [list -1 0] 

puts -180 Angle [join $pl ,3 [join $p2 , J: [ iat : : ant : : 2ptsAngle $pl $p23 

20 

set pl [list 0 03 
set p2 [list -1 -1) 

puts "135 Angle [join $pl ,3 (join $p2 ,3: [iat : :ant: :2ptsAngle $pl $p2] 

25 set pl [list 0 03 
set p2 [list 0 -13 

puts "270 Angle (join $pl ,) [join $p2 [ iat : : ant : : 2ptsAngle $pl $p2) 

set pl [list 0 03 
30 set p2 (list 1 -1] 

puts "315 Angle [join $pl ,3 (join $p2 ,]: [ iat : : ant : : 2ptsAngle $pl $p23 

set pl (list 1 1] 
set p2 [list 1 -13 

35 puts "270 Angle [join $pl ,3 [join $p2 ,3: [iat: :ant : :2ptsAngle $pl $p2) 

set pl [list 0 13 
set p2 [list 0 -13 

puts "270 Angle (join $pl ,J [join $p2 ,3= [iat :: ant : :2pts Angle $pl $p23 

40 

set pl (list -1 ^13 
set p2 (list 1 -13 

puts "0 Angle (join $pl ,3 (join $p2 ,3: ( iat : : ant : : 2ptsAngle $pl $p23 " 

45 set pl [list 2 2] 

set p2 [list -3 -3] 

puts "135 Angle [join $pl ,3 [join $p2 ,3: [iat : :ant: :2ptsAngle $pl $p2J 
exit 

50 > 

iat .antio . txt 

# Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

55 # iat.antio.tcl 

namespace eval iat; rant ( 
) 

60 

proc iat: :ant: :readL_ants { ns url } ( 

puts ■ iat : : ant : : reacl_ants : $ns $url ■ 

) 

65 

proc iat : :ant: :write_ants ( ns url ) { 

puts " iat : : ant : : wri tenants : $ns $url " 

) 

70 

proc iat : : ant : : ants_read_cmds { ns doc } { 
variable TRACE 

if ($TRACE) { puts "iat: :ant: :ants_readL.cmds: $ns $doc*» ) 

75 variable antkey 
variable rawsave 
• variable precmd 

upvar #0 [join [list $doc docJby_eid3 ::3 doc_Jjy_eid 
80 upvar #0 [join [list $doc docJby_elt3 ::3 doc_by_elt 
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set rawsave 1 

if {[info exists doc_by_elt (annotations) J ) { 
set eids $doc_Jby_elt (annotations) 
5 #puts " eids = $eids" 

set eid [lindex $eids end}' 
if ($eid > 0> { 

#puts ■ ants = $docJby_eid($eid) ■ 
array set A $doc_by_eid($eid) 
10 set ants $A(nod) 

foreach roi $ants { 

ants_reacL_cmds_ant $ns $doc $roi 

> 

) 

15 ) 

set rawsave 0 
return 0 

20 ) 

proc iat: :ant: :ants_read_cmds_ant { ns doc roi } { 
variable TRACE 

if {$ TRACE) { puts -iat: ;ant: :ants_reacL_cmds_ant: $ns $roi* 

25 

variable thisptr 
variable order 

upvar #0 [join [list $doc doc_by_eid] ::] doc_by_eid 
30 upvar #0 [join [list $doc doc_by_elt] : : J doc_by_elt 

set precmd ■ [namespace current] $ns" 

if {[info exists doc_by_eid ( $roi ) ]} { 

35 

#puts ■ roi = $doc__by_eid($roi) ■ 
array set A $doc_by_eid ( $roi ) 
array set Ao $A(opt> 

40 # create roi with type 

set and "create roi $Ao(type)" 
set and "$precmd $and" 
#puts * and = $and" 
eval $cmd 

45 

if ([info exists Ao(order)]} { 

set and "set order $Ao< order)" 

set and "$preand $cmd" 

#puts " and = $and" 
50 eval $cmd 

) 

set nods $A(nod) 
foreach nod $nods { 
55 set cmds [list] 

set and " ■ 

fputs ■ nod = $doc_by_eid($nod) " 
array set B $docjby_eid($nod) 
array set Bo $B(opt) 
60 set tag $B(tag) 

switch $tag { 
"views " { 

set and "set inview \{$B(dat)\>" 
lappend onds $cmd 

65 ) 

"code" { 

set and "set code \{$B(dat)\)" 
lappend onds $ond 

> 

70 "symbol" { 

set and "set symbol \{$B{dat)\}" 
lappend onds $cmd 

) 

"label" { 

75 set and "set label \{$B(dat) \) * 

lappend onds $and 

> 

■cs_class" { 

set and "set cs_class \{$B(dat)\}" 
80 lappend cmds $cmd 

) 



10 



15 



20 



25 



WO 2004/057439 - 127 - 

Appendix 2 

"cs_tumor" { 

set and -set cs_tumor \{$B(dat) V)" 
1 append cmds $cmd 

cs__node" { 

set and -set cs_node, \{$B(dat)\>- 
1 append cmds $cmd ' 

cs^jnetastasis" { 

set cand "set csjnetastasis \{$B(dat)\} B 
lappend cmds $cmd 

cs_note" { 

set and "set cs_note \{$B(dat) \} 0 
lappend cmds $cmd 

caption" { 

set and "set caption \ ($B(dat) \) ■ 
lappend cmds $cmd 

vertexs ■ { 

set pts [list] 

foreach pair $B(dat) { lappend pts [split $pair {,}] 
set and "create vertexs [list $ptsj" 
lappend cmds $cmd 



■pointer* { 

set pts [list] 
set shp $Bo( shape) 
30 set txt $Bo(text) 

set tail [split $Bo{tail) {,}] 

foreach pair $B(dat) { lappend pts [split $pair {,}] } 
set and "create pointer $Bo{head) [list $tail] [list $pts] • 
lappend cmds $cmd 
35 set and "pointer style active $shp" 

lappend cmds $cmd 

set and "pointer symbol active $txt" 
lappend cmds $cmd 

} 

4 0 "color" { 

set and "set color $B(dat)" 
lappend cmds $cmd 

} 

) 

45 foreach and $cmds { 

if {$and != "") { 

#set and "[namespace current] : :$ns $line" 
set and "$precmd $cmd" 
#puts ■ and = $cmd" 
50 eval $cmd 

} 



55 

ant_save $ns 
return 0 

> 

60 

proc iat : : ant : : ants_parse { ns ants ) { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: :ants_parse; $ns $ants" } 



65 variable antkey 
variable rawsave 
variable precmd 



70 



set rawsave 1 



set lines [split $ants "\n"] 
foreach line $ lines { 

if {$line ==»"}{ continue } 
if {[regexp {^\s*#) $line] } { continue ) 
75 #set and "[namespace current] : :$ns $line" 

set cmd "Sprecmd $line" 
puts " and = $cmd w 
eval $cmd 

) 



80 



set rawsave 0 
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return 0 

} 

5 proc iat: :ant: :ant_make_all { ns lvl } { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: : ant_make_all : $ns $lvl" } 



10 



upvar #0 [join [list [namespace current] $ns canvas) : : ) canvas 
upvar #0 I join [list [namespace current] $ns polys] ::) polys 



set str 



20 



#append str "begin annotations \n" 
15 set pre [string repeat ■ ■ $lvl) 
append str "$pre<annotations>\n" 
foreach (key value) [array get polys] { 

append str [ant__make $ns $key [expr $lvl+2]J 

#append str "end annotations \n" 
append str "$pre</annotations>\n" 

return $str 

) 

25 

proc iat: :ant: :ant_jmake { ns key lvl } { 
variable TRACE 

if {$TRACE> { puts "iat: rant: :ant_make: $ns $key $lvl" } 

30 variable antkey 

variable order 

variable points 

variable heads 

variable verts 
35 variable tails 

variable dSYMs 

variable dPTRs 

variable kind 

variable color 
4 0 variable inview 

variable code 

variable symbol 

variable label 

variable caption 
45 variable cs_class 

variable cs_tumor 

variable cs_node 

variable cs_metastasis 

variable csjiote 

50 

upvar #0 [join [list [namespace current) $ns offsetX] ::) offsetX 
upvar #0 [join [list [namespace current] $ns offsetY) ::] offsetY 
upvar #0 [join [list [namespace current] $ns imageXJ ::] imageX 
upvar #0 [join [list [namespace current] $ns imageY] ::] imageY 
55 upvar #0 [join [list [namespace current] $ns polys] ::] polys 



60 



if {$key == {set key $antkey ) 

if {$key "active") { set key $antkey ) 

ant_load $ns $key 



set str 



set roipts $points 

set roipts (points_translate -$offsetX -$offsetY $roipts] 
65 set roipts [pointsTolOK $imageX $imageY $roipts] 

# append str "# key $antkey\n" 

set pre (string repeat • " $lvl] 

#append str "$pre<! — key $antkey — >\n" 
70 tappend str "create roi $kind\n" 

append str "$pre<roi type=\"$kind\" order=\"$order\" >\n" 

append str "$pre <views> [STRXML $inview) </views>\n" 

append str "$pre <code> [STRXML $code) </code>\n" 

#append str "set symbol \-$symbol\" \n" 
75 append str "$pre <symbol> [STRXML $symbol] </symbol>\n" 

#append str "set label \"$label\"\n" 

append str "$pre <label> [STRXML $label) </label>\n» 
append str "$pre <caption> [STRXML $caption) </caption>\n" 

# TNM Cancer Staging 

80 append str "$pre <cs_class> [STRXML $cs_class] </cs_class>\n" 
append str "$pre <cs_tumor> [STRXML $cs_tumor] </cs_tumor>\n" 
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append str *$pre <cs__node> [STRXML $cs_node] </cs_node>\n" 

append str "$pre <cs_metastasis> [STRXML $cs_metastasis] </cs_metastasis>\n" 
append str "$pre <cs__note> [STRXML $cs_note) </cs_note>\n" 
#append str "create vertexs { $roipts }\n* 
5 set vlst [list] 

foreach pt $roipts { lappend vlst [join $pt ","3 } 
append str "$pre <vertexs> [join $vlst { >] </vertexs>\n" 
foreach {key value) [array get heads] ( 
if {$value == ■■> { continue ) 

10 # added as extra data in output for processing 

if {$value == "auto"} { 

set headpt [nearest_point $tails{$key) $points] 
} else { 

set headpt $value 

15 } 

set tailpt [points_translate -$offsetx -$offsetY [list $tails($key) ] ] 
set tailpt [pointsTolOK $imageX $imageY $ tailpt] 
set tailpt [lindex $tailpt 0] 

20 

set vertpts $verts($key) 

set vertpts [points^translate -$offsetX -$offsetY $vertpts] 
set vertpts [pointsTolOK $imageX $ image Y $vertpts] 

25 #append str -create pointer $value \{$tailpt\) \{ $vertpts \}\n" 

set vlst [list] 

foreach pt $vertpts { lappend vlst [join $pt ",") > 

append str "$pre <pointer head=\"$value\* point=\»$headpt\" tail=\" [ join $tailpt {,)]\" 
shape=\"$dPTRs($key)\" text=\"$dSYMs ($key) \" > [join $vlst { }] < /pointer >\n" 
30 } 

#append str "set color \"$color\"\n" 
append str "$pre <color> $color </color>\n" 
#append str "save\n" 
append str "$pre</roi>\n" 



35 



} 



return $str 



40 # regsubs < > & ■ ' for xral... 
proc iat :: ant :: STRXML {str} { 

regsub -all {&} $str {\&} strl 
regsub -all {<} $strl {\<> str2 
regsub -all {>} $str2 {\>} str3 

45 regsub -all {\"> $str3 {\&guot;> str4 
regsub -all {V) $str4 {\&apos;> str5 
regsub -all {\n> $str5 { } str6 
return $str6 

) 

50 iat . thumbs . txt 

# iat . thumbs . tcl 

namespace eval iat:: thumbs { 
55 variable TRACE 0 
variable id 0* 



> 



60 



proc iat: : thumbs :: proc { cname cmd args > { 
variable TRACE 

if {$TRACE} { puts "iat : : thumbs :: proc : $cname $cmd $args" ■>■ 

65 upvar #0 [join [list [namespace current] $cname callbackuselect) ::] callback_select 

upvar #0 [join [list [namespace current] $cname callback_deselect] ::] callback^deselect 

switch $cmd { 

•configure 0 { 
70 foreach {key value) $args { 

switch — $key { 

"-url" { make_contact_sheet $ cname $value } 
--callbackselect" { set callbackLjselect $value } 
"-callbackdeselecf { set callback_deselect $value > 

75 } 
} 

) 

"cget" { 

#puts -proc = cget: $args" 
80 switch — [lindex $args 0] { 

"-borders" { return [get_borders $ cname) ) 
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} 

) 

"destroy" { 

return [widget_destroy $cname] 

5 } 

default { 

) 

10 } 

return 

} 

15 

proc iat : : thumbs : : create { path } { 
variable TRACE 

if {$TRACE) { puts "iat: : thumbs :: create: $path" } 
variable id 
20 variable sizes 

if {$path "."} { set path } 
set wid [incr id] 

set w [ScrolledWindow $path.w$wid -relief sunken -borderwidth 2) 
25 pack $w -side top -anchor nw -fill both -expand yes 
set path $w 

set f [ScrollableFrame [$path getframel.f -areawidth 0 -areaheight 0] 
pack $f -side top -anchor nw -fill both -expand yes 
30 set path $f 

#set c [canvas [$path getframej .c -width 2 -height 2 -borderwidth 2 -background gray] 
$w setwidget $f 

35 #pack $c -anchor nw -fill both -expand yes 

set ns (namespace current) :: thumb$wid 
namespace eval $ns { 

variable widget 
40 variable frame 

variable url 



45 



variable callback_select «noop* 
variable callback__deselect -noop" 

} 

upvar #0 [join (list $ns widget] ::] widget 
upvar #0 [join [list $ns frame] ::] frame 

50 set widget $w 

set frame $f 
#set canvas $c 

#set annotations [iat: : ant :: create -canvas $c -cmdcanvas (namespace current] : : canvas $wid ] 
#puts ■ annotations = $anno tat ions * 



55 



set wcmd -proc [namespace current] :: thumb$wid { cmd args > {eval (namespace current} : :proc thumb$wid 
\$cmd \$args}» 

namespace eval : : $wcmd 



60 # default behavior it to pan it... 

#bind $c <ButtonPress-l> ■ [namespace current} : : toolStartPan $f %W %x %y" 
#bind $c <Buttonl-Motion> * [namespace current] :: toolDoPan $f %w %x %y" 



65 > 



return (namespace current] : :thumb$wid 



proc iat: : thumbs : :widget_destroy { ns ) { 
variable TRACE 

if {$ TRACE) { puts * iat :: canvas : :widget_des troy: $ns" ) 
70 variable id 

variable sizes 

upvar #0 (join [list [namespace current] $ns widget] ::] widget 
75 pack forget $widget 



} 



: destroy $widget 



proc iat :: thumbs : :make_contact_sheet { ns new_url } { 
80 variable TRACE 

if { $TRACE} { puts 'iat: :app::folder_jnake_contact_sheet: $ns $new_url« } 



WO 2004/057439 



• 



- 131 - 
Appendix : 




ICT/US2003/017138 



upvar #0 (join [list [namespace current J $ns frame J ::] frame 

#upvar #0 [join [list [namespace current] $ns image_canvas ] ::] image_canvas 

upvar #0 [join [list (namespace current] $ns url] ::] url 

upvar #0 [join [list [namespace current] $ns callback_select] :.-) callback__select 
make^thumbnails $ns $new_url 
set url $new_url 

regexp {~f ile: ( . * ) ) $url m srcPath 

set tmpPath [file join $srcPath 00_TMP] 

set tmbPath [file join $tmpPath T] 

set files [glob [file join $tmbPath *.JPG]] 

#pack forget $image_frame 
#set wpath $image_frame 
#destroy $image_frame 

#set image_frame [frame $image__f rame] 
#set csf $image_frame 

set f [$frame getframe] 

Scanvas $csf. canvas -width 10 -height 10 \ 

# -yscrollcommand [list $csf.yscroll set] 
#scrollbar $csf .yscroll -orient vertical \ 

# -command [list $csf .canvas yview] 
#pack $csf .yscroll -side right -fill y 

#pack $csf .canvas -side left -fill both -expand true 
#grid $ t op. c. canvas $ top. c .yscroll -sticky news 
#pack $csf -side top -fill both -expand true 

#set f [frame $csf .canvas. f -bd 0] 

#$csf .canvas create window 10 10 -anchor nw -window $f 

set btns [list] 
set colmax 3 
set col 0 
set n 0 

foreach {img_file> $files { 

if {[file exists $img_f ile] } { 



set c [iat: : canvas :: thumbnail $btn] 

$c configure -callbackselect "$callback_select $ns \-$img_f ile\- ■ 
$c configure -file $img_file 
$c redraw 
} else { 

set c [iat: : canvas :: thumbnail $btn] 

$c configure -callbackselect "$callback__select $ns \"$img_f ile\» ■ 

$c configure -file $img_file 

set fh [open $ant_file r] 

set svg [read $fh] 

close $fh 

set ants 

regexp {<IAT>. *</iAT>) $svg ants 
# parse here . . . pass reference . . . 
set doc [tex:: create -xml $ants] 
$doc parse 
#$doc dump; exit 
$c annotations read_cmds $doc 
#$c annotations read_cmds $ants 
$c redraw 



set tmb [image create photo -file $ img_.fi le) 
set ant_file [f ile_f or_ants $ns $img_file] 
set btn [frame $f .tmb$n] 



if {$ant_file == 



} { 



} 



) else { 



set btn [button $f . tmb$n -text X] 



} 



lappend btns $btn 
incr n 
incr col 



# 
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if {$col >= $colmax) { 

set and "grid [join $btns] -padx 4 

eval $cmd 

set btns [list] 

set col 0 

) 



- 13Z - 
Appendix : 

-pady 4" 



PCT/US2003/017138 



10 



} 



#grid $btnl $btn2 $btn3 -padx 4 
#pack $btn 



-pady 4 



15 



20 



#tkwait visibility $csf .canvas 
#set bbox [grid bbox $f 0 0] 
#set incr [lindex $bbox 3] 
#set width [winfo reqwidth $f ] 
#set height [winfo reqheight $f] 

#$csf. canvas config -scrollregion '0 0 $width [expr $height+50] ■ 
#$csf. canvas config -yscrollincrement 20 

#$csf .canvas config -width $width -height [expr $height+50) 



} 



25 



proc iat: : thumbs: :make_thumbnails { ns url } { 
variable TRACE 

if {$TRACE) { puts "iat: : thumbs : :make_thumbnails: $ns $url» } 
set old [focus] 



30 



35 



40 



45 



50 



55 



60 



65 



toplevel .d -borderwidth 10 
wm title .d "Contact Sheet" 

wm protocol .d WM _PELETE_WINDOW {set : :OK 1) 

regexp {"f ile: ( . *) } $url m srcPath 

set tmpPath [file join $srcPath 00_TMP) 

set tmbPath [file join $tmpPath TJ 

if {{[file exists $tmpPath] > { file mkdir $tmpPath } 
if {'[file exists $tmbPathJ ) { file mkdir $tmbPath } 

set files [glob [file join $srcPath * . {TIF, PNG, JPG) ] ] 

set lb [label .d.lb -text "Creating thumbnails, please wait..."] 
pack $lb -side top -expand y -fill x 

set : : progress 0 

set pb [ProgressBar .d.pb -variable :: progress -maximum [llength $files] ] 
pack $pb -expand y -fill x 

foreach file $files { 
#puts "file: $file" 

set newfile [lindex [file split (file rootname $f ile] ] end] 

set newfile [file join $tmbPath $newf ile. JPG] 

#append newfile .JPG 

#puts "new file: $newfile» 

if {![file exists $newf ile] } { 

set srclmg [image create photo -file $file] 
set tmblmg [image create photo] 
$ tmblmg copy $ srclmg -subs ample 8 -shrink 
$ tmblmg write $newfile -format JPEG 



} 



> 

incr : : progress 



grab release .d 
focus $old 
destroy .d 



) 



70 proc iat: : thumbs: :f ile_for_ants { ns tirib } { 
variable TRACE 

if {$ TRACE) { puts "iat: : thumbs : : ur l_f or_ants : $ns $tmb° ) 

#regexp {"file: ( . *) \ . \S+$} $url m base 

set tparts [file split [file rootname $tmb] ) 
set iparts [lrange $tparts 0 [expr [llength $tparts]-4] ] 
#set ifile [file join $iparts] 
lappend iparts [lindex $ tparts end) 
set base {eval "file join $iparcs"] 



75 



80 



WO 2004/057439 



#puts "base = $base" 
set tmp "$base.svg" 

if {[file exists $tmp) > { return "$tmp" } 
set tmp *$base.SVG" 

if {[file exists $tmp] } { return "$tmp" } 
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return 



10 



} 

ia t . va r . i s4 svg . txt 



proc iat : :var_str_js4svg {} { 





set str 




15 


append str 


B <! — ECMAScript — > \n" 




append str 


"<script type= * text/ecmascript 1 >< I \ [CDATA\ [ \n" 




append str 


• \n" 




append str 


"function antAbout () \n" 




append str 


"{ \n" 


20 


append str 


" var msg = \« Generated by IAT version 0.8.3\"; \n" 




append str 


■ alert (msg) ; \n" 




append str 


"> \n- 




append 


str 


• \n" 




append str 


"function antMakeMenu () \n" 


25 


append 


str 


"{ \n" 




append str 


var tmpMenuRoot = parseXML ( printNode( document . getElementBy Id 




contextMenu > ; 


\n" 




append 


str 


" contextMenu. replaceChild{ tmpMenuRoot, contextMenu . f irstchild 




append 


str 


•} \n" 


30 


append 


str 


• \n" 




append 


str 


"function antShowCaption (key) \n" 




append 


str 


" { \n- 




append 


str 


" / /alert ( \ ■ caption key : \ M +key ) ; \n" 




append 


str 


var lblelt = document .getElementBy!d(key+ ' -label 1 > ; \n" 


35 


append 


str 


" var capelt = document .getElementBy Xd(key+ '-caption' ) / \n" 




append 


str 


if ( capelt. f irstChild == null ) { return; ) \n" 




append 


str 


var lblstr = lblelt.f irstChild.data; \n" 




append 


str 


var capstr = capelt . fir st Chi Id. data; An" 




append 


str 


\n" 


40 


append 


str 


var new_str = lblstr+\" \\n\\n\" ; \n" 




append 


str 


■ var s = 0 \n" 




append 


str 


■ var e = 50; \n" 




append 


str 


/ /alert (\« length: \°+capstr .length) ; \n" 




append 


str 


while { e < capstr . length ) \n" 


45 


append 


str 


{ \n- 




append 


str 


■ if( capstr. charAt(e) .match (/\s/) ) \n" 




append 


str 


{ \n» 




append 


str 


* new„str = new_str+\ " \ \n\ * +caps tr . substring ( s , e ) ; \n ■ 




append 


str 


s = e+1; \n" 


50 


append 


str 


• e = e + 49; \n* 




append 


str 


) \n" 




append 


str 


" e++; \n" 




append 


str 


> \n" 




append 


str 


new^str = new_str+\ * \ \n\ " +capstr . substring ( s , capstr . length) ; 


55 


append 


str 


* alert (new__str) ; \n" 




append 


str 


") \n" 




append 


str 






append 


str 


"function antToggleShowAll (arr, menu) \n" 




append 


str 


"{ \n" 


60 


append 


str 


* / /alert ( 'keys: *+arr); \n" 




append 


str 


• for( var i in arr) \n" 




append 


str 


{ \n" 




append 


str 


//alert ('key: • +arr\[i\] ) ; \n« 




append 


str 


" antToggleShowAnt ( arr \ [ i \ ] , false ) ; \n" 


65 


append 


str 


} \n" 




append 


str 


». \n" 




append 


str 


■ if( menu ) antMakeMenu () ; \n" 




append 


str 


"> \n" 




append 


str 


• \n" 


70 


append 


str 


"function antToggleShowAnt (key, menu) \n" 




append 


str 


■{ \n» 




append 


str 


" / /alert ( ' key: ' +key) ; \n" 




append 


str 


" var item = document . getElementBy Id ( 'menu- 1 +key+ 1 -annotation ' ) ; 




append 


str 


\n" 


75 


append 


str 


* if( item.getAttribute( 'checked* ) == 'yes') \n" 




append 


str 


{ \n" 




append 


str 


• antSetShowAnt (key, false) ; \n* 




append 


str 


• > else { \n" 




append 


str 


antSetShowAnt (key. true) ; \n" 


80 


append 


str 


) \n" 




append 


str 


" \n" 



'NewMenu 1 ) ) , 



); \n" 



\n" 



\n» 
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append str ■ if{ menu ) antMakeMenu { ) ; \n" 
append str ■ } \n" 
append str - \n* 

append str "function antSetShowAll (arr, show, menu) \n" 
5 append str ■ { \n° 

append str - / /alert (' keys : '+arr>; \n° 
append str ■ for( var i in arr) \n" 
append str ■ { \n" 

append str - //alert ( 'key; '+arr\[i\]); \n" 

10 append str ■ antSetShowAnt (arr\ [i\] , show, false); \n" 

append str " ) \n" 
append str * \n" 

append str ■ if( menu ) antMakeMenu () ? \n" 
append str ■ } \n" 
15 append str ■ \n" 

append str "function antSetShowAnt (key, show, menu) \n» 
append str • { \n" 

append str ■ //alert ( 'annotation: '+ant); \n" 

append str ■ var item = document . getElementByld ( 'menu- '+key+* -annotation* ) ; \n - 
20 append str " var elt « document . getElementBy Id ( 1 AI»I*- * +key+ ' -annotation 1 ) ; \n" 
append str • var style = elt .getStyle ( ) ; \n" 
append str ■ / /alert ( 1 element : '+elt); \n" 
append str B \n" 

append str ■ if { show *= false ) \n" 
25 append str " { \n" 

append str " item . setAt tribute { * checked ' , • no 4 ) ; \n ■ 

append str - style, set Proper ty{ 'visibility' , 'hidden' ) ; \n" 

append str ■ } else { \n" 

append s tr ■ item . set Attribute ( • checked '/yes'); \n * 

30 append str ■ style. setProperty{ 'visibility' , • inherit ') ; \n" 

append str ■ ) \n" 
append str ■ \n" 

append str * if ( menu ) antMakeMenu {) ; \n" 
append str " } \n" 
35 append str ■ \n" 

append str "function antToggleMouseOverAll (arr, menu) \n" 
append str ■ { \n" 
append str " \n" 

append str " var item = document. getElementById( 'menu -mouseovers ») ; \n p 
40 append str ■ \n" 

append str - if ( i tem. get At tr ibute (* checked' ) == 'yes') \n" 
append str n { \n" 

append s tr ■ item . set Attribute ( 1 checked » , 'no'); \n" 

append str " antSetMouseOverAll (arr, true, false) ; \n" 

45 append str " antMouseOver = false; \n» 

append str ■ ) else { \n" 

append str » antMouseOver = true; \n" 

append str " item. setAt tribute! 'checked* , 'yes'); \n" 

append str " antSetMouseOverAll (arr, false, false) ; \n" 

50 append str ■ } \n" 

append str ■ \n* 

append str ■ if( menu ) antMakeMenu ( ) ; \n" 
append str ■ ) \n w 
append str ■ \n" 

55 append str "function antSetMouseOverAll {arr, over, menu) \n" 
append str ■ { \n* 

append str ■ //alert ( 'keys: '+arr); \n" 
append str • for( var i in arr) \n" 
append str " { \n" 
60 append str • //alert ( 'key: '+arr\[i\]); \n" 

append str ■ antSetMouseOverAnt(arr\[i\] , over, false); \n" 

append str ■ } \n" 
append str ■ \n m 

append str ■ if( menu ) antMakeMenu () ; \n» 
65 append str ■) \n" 
append str ■ \n" 

append str "function antSetMouseOverAnt (key, over, menu) \n" 
append str • { \n" 
append str ■ \n" 

70 append str ■ var elt = document . getElementByld (' ALL- * +key+ • -annotation ') ; \n- 
append str ■ var style = elt.getStyle() ; \n" 
append str ■ \n" 

append str ■ if ( antMouseOver == true) \n" 
append str • { \n" 
75 append str ■ if ( over == false ) \n" 

append str " { \n" 

append str • style.setProperty ( 'opacity ,0) ; \n" 

append str " ) else { \n" 

append s tr " s tyle . se tProper ty ( ' opaci ty • , 1 ) ; \n ■ 

80 append str " } \n" 

append str ■ } \n» 
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append str - } \n" 
append str - \n" 

append str "var antMouseOver = false; \n" 
append str ° curr ent_view = 'ALL 1 ; \n" 
5 append str ■ \n* 

append str -var newMenuRoot = parseXML( printNode ( document .getEl ementBy Id { 'NewMenu 1 ) ), contextMenu 
); \n" 

append str "contextMenu. replaceChi Id ( newMenuRoot , contextMenu . f irstChild ); \n' 
append str - \n" 
10 append str ■ \] \)></script> \n" 

append str - \n n 
return $str 

) 

iat . dialog . dataref . txt 
15 # Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

# ia t. dialog. da taref.tcl 

20 proc iat: : dialog : :dialog_edit_data_test (} { 
return [list code symbol label] 

} 

proc iat ;: dialog : : tree_clicKjnode { id > { 
25 variable TRACE 

if <$TRACE) { puts -iat; : dialog : : tree_clic*_riode : $id" } 

variable ref_tree 
variable ref_id_to_lst 
30 variable ref_ code 

variable ref_symbol 
variable ref__label 

if {'[info exists ref_id u _to_JLst ($id) ] } { return } 
35 $ref_tree selection clear 

$ref__tree selection add $id 

set 1st $ref_id_to_lst($id) 

set ref__code [lindex $lst 1] 

set ref__symbol [lindex $lst 2] 
40 set ref_label [lindex $lst 3] 

) 

proc iat : : dialog : : combo_select__ref { } { 
45 variable TRACE 

if {$TRACE} { puts "iat: : dialog : : combo_select__ref : ■ } 



50 



variable ref_list 
variable ref_combo 



set idx [$ref_cambo getvalue) 
if {$idx == 0} { 

# NONE list item 

return 

55 } 

set name [lindex $ref_list $idx] 
#puts " name = $name n 

set url " $iat : : app : : rsrc_url /references / $name . TXT" 
#puts ■ url = $url" 



60 



loa6Uref_f ile $name $url 



proc iat: : dialog : :load_ref_leaf { branch leaf Ivl } { 
65 variable TRACE 

if {$TRACE} { puts • iat:: dialog ::loacLref_leaf: $branch $leaf $lvl" ) 



70 



variable ref_tree 
variable ref_id_to_lst 



if (![info exists ref_id_to_lst ($branch) J } { return > 
set newjoranch $branch 
set next_leaf $leaf 

while {(info exists ref_id_to_lst ($next_leaf ) ] } { 
75 set line $ref_id_to_lst ($next_leaf ) 

set next_lvl [lindex $line 0] 
if {$next_lvl == $lvl} { 
#incr ref_id 

set new_branch [$ref_tree insert end $branch $next_leaf -text ■ (lindex $line 1J : [lindex $line 

80 3] ■] 

set next_leaf [expr $next_leaf +13 
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} elseif {$next__lvl > $lvl> { 



set next_leaf £load_ref_leaf $new_branch $next_leaf $next_lvl] 
} else { 

return $next_leaf 

5 ) 
) 

return $next_leaf 

> 

10 

proc iat: : dialog : : load__ref_f ile { name url } { 
variable TRACE 

if {$TRACE> { puts ° iat :: dialog : :load_ref_file: $name $url" } 

15 variable ref__name 
variable ref_.fi le 
variable ref_tree 
variable ref_id_to__lst 

20 if {$name == "NONE ■ } { return } 

if {$ref_name ! = $name) { 

if {! [regexp (^file:) $urlj } { return ) 
set ref_.fi le $url 
25 regexp {^file:(.*>) $url m path 

set fh [open $path r] 

set lines [split (read $fh) "\n"] 

close $fh 

30 

set ref_id 0 

array unset ref_id_to_lst 
array set ref_io_to_lst [list] 

35 set ref_name $name 

set ref_i6L.to_lst($ref_id) ^name" 

foreach line $lines < 

if {[regexp {~\s*$> $line) } { continue } 
40 incr ref__id 

set ref_jLd_to_lst<$ref__id) $line 
#puts ■ $ref_id = $line" 

) 



45 



50 



} 

# branch, leaf, level 

$ref_tree delete [$ref_cree nodes root] 

set root [$ref_tree insert end root 0 -text "$name"] 

load_.ref_leaf 0 10 



} 



proc iat: : dialog : :load_ref_list { url > { 
variable TRACE 

55 if {$TRACE} { puts "iat: : dialog : : load_ref_list : $url- } 

variable ref_list 

if U [regexp {*file:} $urlj} { return } 
60 regexp {^file;(.*)> $url m path 

set files {glob $path/*.txtj 

#puts ■ reflst = $reflst* 

set ref_list [list NONE) 

foreach file $files { 
65 set name [file tail [file rootname $file]J 

1 append ref__list $name 

) 

> 

70 

proc iat: :dialog: :dialog_edit__data {) { 

variable ref_list 
variable ref_combo 
75 variable ref_name 
variable ref__file 
variable ref_tree 



80 



variable ref_code 
variable ref_symbol 
variable ref_label 
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set path $iat : : app : : rsrc__url /references 
regexp Pfile: (.*)} $path m path 
if {i[file exists $path) } { 
5 tk__messageBox -type ok -icon warning -title "Resources" -message "Unable to access: $path" 

return 

) 

if {[llength $ref_list] == 1} { 
10 set ref_jname "NONE" 

set ref_file 

loadU.ref_.list $iat: :app: :rsrc_url/ references 

} 

15 set old I focus] 

toplevel .d -borderwidth 10 
win title .d "References" 

win protocol .d WlCDELETE_WINDOW {set ; :OK 1} 

20 

set f (frame .d.f] 

pack $f -fill both -expand yes 

set dl [label .d.f.dl -text "Current Reference:"] 
25 set dc ( CamboBox . d . f . dc -values $ref _list -modif ycmd ■ iat : : dialog : : combo_s elector ef " ] 
grid $dl $dc x x -pady 4 

set ref__combo $dc ? 
$ref_combo setvalue @[lindex [lsearch $ref_list $ref_name] 0] 

30 set tf (frame .d.f.tf] 

grid $tf - - - -sticky news 

set tree [Tree $tf .t -width 40 -height 20 -padx 22 -deltay 22\ 
-yscrollcommand (list $tf .yscroll set] \ 
-opencmd ■ " ] 

35 set sbar [scrollbar $tf .yscroll -orient vertical \ 
-command [list $tf.t yview] ] 
grid $tree $sbar -sticky news 
set ref_tree $tree 
load„ref_file $ref_name $ref_file 

40 

$tree bindText <Button-l> w iat :: dialog tree_click_node " 
set : : OK 0 

button .d.f. ok -text OK -command {set r :OK 2} 
45 button .d.f. cancel -text Cancel -command {set ::OK 1} 
grid x x .d.f .ok .d.f .cancel -pady 4 

focus .d 
grab .d 
50 tkwait variable : :OK 

grab release .d 
focus $old 
destroy .d 

55 

if ($::0K != "2") {return [list]} 

return [list $ref_code $ref_symbol $ref_JLabel] 

} 

60 ia t . di al oo . groups . txt 

# Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

# ia t. dialog. border. tcl 

65 

proc iat: : dialog : :dialog_edit_groups__test {} { 
return (list .20 .20 .20 .20] 

> 

70 proc iat: :ant: : grp_dlg_drop_ant { ns tree xxx where cmd type data } { 
variable TRACE 

if {$ TRACE} { puts "iat: :ant: :grp_dlg_drop_ant: $ns $tree $where $cmd $type $data" } 

set rel (lindex $where 0] 
75 if {$rel == "bad"} { 

set parent [$tree parent $data] 

set nodes [$tree nodes $parent] 

#puts "old nodes = $nodes" 

set oldidx [lsearch -exact $nodes $data] 
80 set nodes [lreplace $nodes $oldidx $oldidxJ 

set newidx [lsearch -exact $nodes [lindex $where 1)] 
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set nodes [linsert $nodes $newidx $data] 

#puts -new nodes * $nodes" 

$tree reorder $parent $nodes 
} elseif ($rel == •node-} { 
5 set newparent [lindex $where 1] 

$tree move $newparent $data 0 
} elseif {$rel •position-) { 

set newparent [lindex $where 1J 

set newpos [lindex $where 2] 
10 $tree move $newparent $data $newpos 

} else { 

# do nothing. . . 

> 

> 

15 

proc iat: :ant: :grp_dlg_make_leaf { ns tree branch order } { 
variable TRACE 

if { $TRACB} { puts ■iat::ant::grp_dlg_build_leaf: $ns $tree $branch $order" } 

20 variable ord2key 
variable leaf_id 
variable symbol " " 
variable label ■ " 

25 set key $ord2key($ order) 
ant_load $ns $key 

set new^leaf [$tree insert end $branch [incr leaf_id] -text -$symbol: $label" -data $key) 

30 set idx 1 

while {$idx < 20) { 

if {[info exists ord2key ( $order . $idx) J ) { 

gxp_dlg_make_leaf $ns $tree $new_leaf $order.$idx 

35 incr idx 

> 

} 

40 proc iat: :ant: :grp_dlg_make_tree { ns tree > { 
variable TRACE 

if {$TRACE} { puts "iat: :ant: :grp_dlg_Jbuild_tree: $ns $tree" } 

variable ord2key 
45 variable leaf_id 

upvar #0 [join [list [namespace current] $ns orders] ::] orders 

array unset ord2key 
50 array set ord2key (list! 
set leaf_id 0 

foreach {key val) [array get orders] { 
#puts "key: $key = $val° 
55 set ord2key<$val) $key 

) 

set new__leaf [$tree insert end root 0 -text "IMAGE" ] 

60 set idx 1 

while {$idx < 20) { 

if {[info exists ord2key ($idx) ] } { 

grp_dlg_make_leaf $ns $tree 0 $idx 

) 

65 incr idx 

) 



ant_create_defaults 



70 ) 



75 



proc iat: :ant: : grp_dlg_read_leaf { ns tree branch {order ■•} ) { 
variable TRACE 

if {$TRACE) { puts B iat: :ant: :grp_dlg_reacLleaf : $ns $tree $branch $order" ) 
upvar #0 [join [list [namespace current] $ns orders] ::] orders 



if {$branch ==0) { 
set order nn 
80 } else { 

set key [$tree itemcget $branch -data) 



10 



} 
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set orders ($key) $order 
#puts "key: $key = $order" 
append order " . " 
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} 



set idx 1 

set nodes [$tree nodes $branch] 
foreach node $nodes ( 

grp_dlg_read_leaf $ns $tree $node $order$idx 

incr idx 

) 



proc iat : : ant : : grp_dlg_reacl_tree { ns tree } { 
15 variable TRACE 

if {$TRACE} { puts "iat: :ant: :grp_dlg_read_tree: $ns $tree" } 

grp_dlg_read_leaf $ns $tree 0 



20 } 

proc iat: : dialog : :dialog_edit_groups {ants} { 
variable TRACE 

if {$TRACE} { puts ■ iat :: dialog : :dialog_edit_groups: $ants" } 

25 

variable grp_tree 

set ns [lindex [split $ants ■::"] end] 
set old [focus) 

30 

toplevel .d -borderwidth 10 

wm title .d "Annotation Groups" 

wm protocol .d WM_DELETE_WINDOW {set : :OK 1} 

35 * set f [frame .d.f ] 

pack $f -fill both -expand yes 

set tf [frame .d.f.tf] 
pack $tf -fill both -expand yes 
40 #grid $tf - - - -sticky news 

set tb [frame .d.f .tb] 
pack $tb -fill x -expand no 

45 Tree $tf .t -width 40 -height 10 -padx 22 -deltay 22\ 

-yscrollcommand [list $tf .yscroll set] \ 
-dragenabled true \ 
-dropenabled true \ 
-opencmd " " \ 

50 -dropcmd -iat: :ant: :grp_dlg_drop_ant $ns" 

set grp_tree $tf.t 

scrollbar $tf .yscroll -orient vertical \ 

-command [list $tf .t yview] 
pack $tf .yscroll -side right -fill y 
55 pack $tf -t -side left -fill both -expand true 



set : :OK 0 

button $tb.ok -text OK -command {set ::OK 2} 
button $tb. cancel -text Cancel -command {set : :OK 1} 
60 grid $tb.ok $tb. cancel -sticky e -pady 4 

# Build the annotation tree. . . 

iat : : ant : : grp_dlg__make_tree $ns $grp_tree 



65 focus .d 
grab .d 

tkwait variable : :OK 



# Save the new grouping orders . . . 
70 if {$::OK == "2") { 

iat: rant: : grp_dlg_jcead_tree $ns $grp_tree 

) 

grab release .d 
75 focus $old 

destroy .d 

return 0 

> 

80 iat . var . splash . txt 
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proc iat: :var_str_splash {} { 
set str "- 

append str "Electronic Medical Education Resource Group (EMERG) \n" 
5 append str "Medical Image Annotation Tool (MIAT or IAT vO.8.4) \n" 
append str "(c) 2001, 2002 University of Utah, SLC UT \n n 
append str * \n" 

append str "TECHNOLOGY EVALUATION - 2002.04.08 \n" 
append str ■ \n" 

10 append str "This software is property of the of the University of Utah and has been licensed throucrh 
the University of Utah Technology Transfer Office for software evaluation purposes onlT *^rftS£^ 
^ appe^rstr'^^ ^ ^ C ° Pied ' distrib » te * « Presented outside of?ne lice^lx^org^Ion. Vn" 

1 c . * Ppen * Str " This softwa ^ **y only be used to test and evaluate included software functionality for use 
corra^ofatiL 0 ! 0 ^ 01 ^ ^«~ t " Thi * version of the MIAT/ IAT software application rtpr events the 
tl s Sf^ ^T ' a*? does not include many of the available presentation, organization and 
translation methods that make the MIAT /IAT an end-user suitable software application. \n« 
append str ■ \n" 

20 person^ \n- " DlreCt <^ estions < comments and problems regarding the MIAT to one of the following EMERG 
append str ■ \n" 

append str " Technical Contact \n" 
append str " Jason Lauman \n» 
append str " jason.lauman@hsc.utah.edu \n" 
25 append str • 801-641-2944 \n" 
append str ■ \n" 

append str " Licensing Contact \n- 
append str • Patricia Goede \n" 
append str ■ patricia.goede@hsc.utah.edu \n" 
30 append str " 801-585-1737 \n" 
append str ■ \n" 
append str • \n* 
append str "NO WARRANTY \n" 
append str " \n" 

35 append str "EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE 

2? ^TT ISV mm ° m WARRANTY OF ANY KIND, EITHER EXPRESSED OR I^LIE^ ScL^g!^ No£ L^ED 

TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE \n" 
append str * \n" 

An „„.„! PP ^ nd Str ,1N NO EVENT WLBSS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT 
TSrlr l^^ZJ? Y ° U F ° R DAMAGES ' INCLUDING AMY GENERAL, SPECIAL. INCIDENTAL OR CONSEOTTIAL^Ss 
ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM ( INCLUDING BUT NOT LIMITED TO LOSS OF DATA ORDATA 
BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER 
PROGRAMS) . EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES \n' 
append str * \n" 

45 return $str 
} 

iat . dialog . borders . txt 

8 Copyright <c) 2001, University of Utah 

# All rights reserved. 
50 # 

# iat. dialog. border. tcl 



proc iat: :dialog: :dialog_edit_borders_test {} { 
return [list .20 .20 .20 .20] 

55 ) 

proc iat: : dialog : :dialog_edit_borders (1st) { 
set old (focus] 

60 

toplevel .d -borderwidth 10 
win title .d "Edit Borders" 

wm protocol .d WM_DELETE_WINDOW {set : :0K 1} 

65 set vL •0"; set vT "0"; set vR »0"; set vB *0 m 

regexp (\.(\d+)} [lindex $lst 0] match vL; append vL 
regexp {\.(\d+)> [lindex $lst 1] match vT; append vT 
regexp {\.(\d+J} [lindex $lst 2] match vR; append vR 
regexp (\.(\d+)> [lindex $lst 3] match vB; append vB "%" 

70 set :: iat :: dialog :: color [lindex $lst 4] 

set f [frame .d.f] 

pack $f -fill both -expand yes 

75 set eL [entry .d.f .el -width 4] 

set eT (entry .d.f .et -width 4] 

set eR [entry .d.f .er -width 4] 

set eB [entry .d.f .eb -width 4] 

set tl [label .d.f.tl]; set t2 [label .d.f.t2J 

80 set ml [canvas .d.f .c -width 64 -height 64] 

set bl [label .d.f.bl]; set b2 [label .d.f.b2] 
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$ml create rect 2 2 62 62 -width 2 -outline black 

grid $tl $eT $t2 
grid $eL $ml $eR 
5 grid $bl $eB $b2 

$eL insert end $vL 
$eT insert end $vT 
$eR insert end $vR 
10 $eB insert end $vB 

label • d . f . cl -background $iat : : dialog : : color -width 4 
button .d.f .cb -text -border color" \ 

-command {set :: iat :: dialog :: color [tK^chooseColor -parent .d -initialcolor $: :iat: : dialog :: color ] ; 
15 . d . f . cl configure -background $ : : iat : : dialog : : color) 



grid .d.f.cl .d.f.cb -pady 4 



set : : OK 0 

20 button .d.f. ok -text OK -command {set ::OK 2} 

button .d.f. cancel -text Cancel -command {set : :OK 1} 
grid .d.f. ok .d.f. cancel 



focus .d 
25 grab .d 

tkwait variable ::OK 

set vli C$eL get] 

set vT t$eT get] 

30 set vR [$eR get] 

set vB [$eB get] 

regexp {(\d+)} $vL match x; set vL ".$x" 

regexp {(\d+)> $vT match x; set vT D .$x" 

35 regexp {(\d+)> $vR match x; set vR - .$x° 

regexp {(\d+)} $vB match x; set vB - .$x" 



grab release .d 
focus $old 
40 destroy .d 

if {$::OK != "2 " } {return (list)} 

return [list $vL $vT $vR $vB $:: iat :: dialog :: color] 

45 } 

iat . dialog . doc . txt 

# Copyright (c) 2001, University of Utah 

# All rights reserved. 
# 

50 # iat .dialog. border. tcl 

proc iat: : dialog : : dialog_doc_test {} { 
return (list] 

) 

55 

proc iat: : dialog : :dialog_doc { title txt } { 
set old t focus] 



60 toplevel .d -borderwidth 10 
wm title .d $ title 

wm protocol .d WML_DELETE_WINDOW {set : :OK 1} 
wm minsize .d 400 400 
wm geometry -d 450x650 

65 

set f (frame .d.f] 

pack $f -fill both -expand yes 



70 set f [text .d.f. txt -width 60 -height 40 -wrap word -yscrollcommand [list .d.f.sb set]] 
$f insert 1.0 $txt 

#pack $f -side left -fill both -expand yes 

set f [scrollbar .d.f.sb -command [list .d.f. txt yview] ] 
75 #pack $f -side right -expand y 

grid .d.f .txt .d.f.sb -sticky news 

set : :OK 0 

80 button .d.ok -text OK -command {set : :OK 2) 
pack .d.ok -anchor c -pady 4 
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focus . d 
grab .d 

tkwait variable : :OK 

grab release .d 
focus $old 
destroy .d 



return [list] 

10 } 

iat . var . todo . txt 



15 proc iat: : var_str_todo {> < 
set str 

append str "MXAT v0.8.4 \n" 
append str "To Do List \n" 
append str "2002.04.08 \n" 
20 append str ■ \n" 

append str "Contact sheet does not update to reflect changes in the image directory. \n" 
append str " \n" 

append str "Contact sheet shows annotations, but symbols drawn on images resize when \n" 
append str "an image is opened. Each canvas will have to maintain instance font \n" 
25 append str "preferences instead of using global preferences. \n* 

append str " \n" 

append str "Reorganize load/ save code so that it is more consistant for collaborative \n" 
append str "annotations and other advanced used of annotations. \n" 
append str ■ \n" 
30 append str ■ \n" 

return $str 

} 

iat . txt 
# iat.tcl 

35 

source iat.app.tcl 

set app [ iat :: app :: create .] 
win iconify . 

40 

$app configure -resources " file : /WORK^_STATIC/iat-0 . 6 /IAT" 

init_url •/■ 

init_url " / WORK/NIHSV1 2 /NIHSV/00_DB/ images/ tissue" 

url "file : /windows /desktop/ image s/Backlmages/BackOl . PNG" 
url "file:/ images /HeadAndNeck/ 0 1_CT_2_2 5 . PNG " 

#$app configure -url "file: /work/ iat- 0.6 /src/tclhttpd/htdocs/ APC_l_l_10x.jpg" 
50 #$app configure -url " file : /WORK^_STATIC/ iat-0 . 6/src/tclhttpd/htdocs/01_CT_2 — 25 . PNG" 



#$app configure - 
#$app configure - 

#$app configure - 
#$app configure - 
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CLAIMS 

What is claimed is: 

1. A method for visually annotating a digital image, said digital image being raster 
based/ said method comprising the steps of: 

5 providing a digital image; 

annotating said digital image; 

storing electronically said annotations as vector based information linked to said 
digital image such that the digital image remains in a substantially unaltered condition; and 
rendering said digital image with the annotations for display such that the annotations 
10 can be perceived by a user. 

2. The method of claim 1, wherein the digital image is an image of at least a portion of 
a human body. 

3. The method of claim 2, wherein the step of annotating the digital image includes the 
step of defining a region of interest and adding textual information. 

15 " 4. The method of claim l f wherein the step of storing comprises storing said 
annotations in a second file and said digital image is stored in a first file. 

5. The method of claim 1, wherein the step of storing comprises storing said annotations 
in the same file which contains the digital image. 

6. The method of claim 1, wherein step of storing comprises storing said annotations as 
20 text information. 

7. The method of claim 6, wherein the annotations are stored in an XML compatible 

format. ^ 

8. The method of claim 1, wherein said annotations comprise at least one member selected 
from the group consisting of a region of interest, a pointer, a symbol, a caption, a label and 

25 an abbreviation. 

9. The method of claim 8, further comprising the step of hierarchically organizing the 
annotations into logical groupings pursuant to a user defined structure. 

10. The method of claim 8, wherein at least part of the annotation utilizes user defined 
lexicons . 

30 11. The method of claim 1, wherein metadata is also stored along with the annotations. 

12. The method of claim 1, wherein the annotation comprises a region of interest, said 
region of interest being defined by one selected from the group consisting of: a set of points, 
a polygon, and a polyline. 

13. The method of claim 1 wherein the step of rendering the image with the annotations 
35 comprises the step of displaying the annotations in a context appropriate display. 

14. The method of claim 1 wherein each of the annotations can be selectively chosen for 
display on the digital image during the rendering step. 

15. The method of claim 1 wherein each of the annotations can be displayed according to 
a predefined user grouping. 

40 16. The method of claim 1 wherein the annotations are uniquely identified. 

17. The method of claim 1 wherein the digital image comprises a sequence of digital 

images . 

18. A method for interactively displaying annotations linked to a digital image, the 
annotations stored as vector information, said method comprising the steps of: 

45 selecting and displaying the digital image on a display; and 

generating a graphical user interface on the display to accept user preferences, said 
graphical user interface allowing a user to toggle on and off any grouping of the annotations 
through the graphical user interface, the annotations being visible when toggled on and hidden 
from view when toggled off . 

50 19. The method of claim 18 wherein the digital image is a raster based image. 

20. The method of claim 18 wherein the graphical user interface further allows a user to 
activate and deactivate spatial contextual labels. 

21. The method of claim 18 wherein the graphical user interface allows a user to pan the 
digital image and zoom in and out. 

55 22. The method of claim 18 wherein the graphical user interface allows a user to toggle 

on and off annotations from a particular author. 

23. The method of claim 18 wherein the graphical user interface allows a user to toggle 
on and off annotations from a particular specialty. 

24. The method of claim 18 wherein the groupings are predefined by the user. 

60 25. The method of claim 18 wherein the digital image remains in a substantially 

unaltered format. 

26. The method of claim 18 wherein said annotations comprise at least one member 
selected from the group consisting of a region of interest, a pointer, a symbol, a caption, a 
label and an abbreviation. 
65 27. The method of claim 26 wherein the annotations comprise entries from a previously 

defined lexicon. 

28. A method for annotating a digital image, said method comprising the steps of: 
. displaying a digital image on a computer display; 

annotating said digital image; 
70 grouping the annotations hierarchically pursuant to a user defined structure; and 

storing said annotations as vector based information linked to said digital image such 
that the digital image remains in a substantially unaltered condition. 

29. The method of claim 28 wherein the step of grouping the annotations hierarchically 
allows the annotation to be displayed in context appropriately. 

75 30. The method of claim 28, wherein the annotations are saved in a format that can r>e 

electronically queried. . 

31. The method of claim 30, wherein the annotations are capable of being retrieved ror 
interactive display. 
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32 The method ofclaim 28 wherein metadata is iStoted" a'lol^wf tin-trie -aiifiof&ti'btag . 
33* The method of claim 32 wherein the metadata uniquely identifies the annotations. 
34' The method of claim 32 wherein the metadata comprises at least one selected from the 
group consisting of: the name of the author or creator of each of the annotations, a date 
5 indicating when annotation was added to the digital image, a title, a sublet, a description, 
and an area of specialty of the author or creator. 

35. A method for managing digital images, said method comprising: 
inputting annotations for each of the digital images; 

saving each of the annotations in a textual format linked to the digital image such that 
10 the digital image remains substantially unaltered; 

Generating a query, said query querying the annotations; 

retrieving the appropriate annotations and their linked digital images, if any, m 

response to the query; and 

displaying the retrieved digital images and their associated annotations. 
15 36. The method of claim 35 wherein the step of inputting annotations comprises defining 

a region of interest on each of the associated digital images. ♦->,- 
37 The method of claim 35 further comprising the step of hierarchically grouping the 
annotations pursuant to a user defined structure and the step of generating a query utilizing 

20 ^.*STiS?2^1- 35 wherein the step of displaying the retrieved digital images 

comprises the step of interactively displaying the annotations associated with the retrieved 
digital^ images^ Qf 3Q wherein the annotations can be toggled on and off, said 

annotations being visible when toggled on and hidden from view when toggled off. » •* 

25 annotat 4 1 ° ns °h e method of claim 39 wherein annotations can be displayed pursuant to a hierarchal 

grouping^. ^ system for visually annotating digital data stored in a electronic file, the 
system comprising^ ^ .^^^ data frQm the electronic fil e to create a visual 

30 '^^^^J^^^Uu a g the extracted data into a visual representation that 
reflSCt a S SstSgt'ans for permitting a human user to manually create dimensionally 

35 ^^a^rTr^Tror electronically storing the annotations as vector inf option such 
that the digital data stored in the electronic file is substantially unaltered; and 
that the ^9^ ting means for displaying the visual representation of the digital data along 

with the 2 annotations ^ extraction identifies the f«tj the 

40 electronic file based upon the electronic file extension, MIME type as embedded into the 

electronic file or provided externally as metadata, or user input. rtini 4- a i data is a 

43. The system of claim 41, wherein the visual representation of the digital data is a 
single visual data element that has the dimensions of the original data. 

, 44. The system of claim 41, wherein the visual representation of the digital ^ data is a 

45 sequence of visual data elements that each has the dimension of the original digital data, but 
has an additional dimension that defines a sequence axis. H«„4«. a i rfat-a is a 

45 The system of claim 41, wherein the visual representation of the digital data is a 
set of visual data elements that each has the dimension of the original digital data, but has an 
additional cLnne? dimension where each visual data element represents the same conceptual 

50 space. wherein the visual representation of the digital data is a 

„™.m of visual Tta elements that each has the dimension of the original digital data, but each 
visual dala element is S In the conceptual space that merits a grouping to visualize the 
similarities or di«-en |es o^the visua^ elements ■ ^ for ^rking each 

annotation with user identifying information to track ^authorship .of ^the ^^^^SStSSS^S' 

4 8 The svstem of claim 41 wherein the presenting means is capable of restricting tne 
display of at least ^portion of the annotations based upon previously defined viewing rights 

60 aSSi ^« t %te d sy 1 s S t^ of claim 41 wherein the presenting means is capable of restricting the 
display of at least a portion of the annotations based upon user input. 
50. A system for annotating an image, said system comprising: 
means for storing a raster based digital image in a file; 
means for displaying said raster based digital image; 
z*. means for creating vector based annotations related to said image and ^ ^ u ^ 

meanl for linking slta vector based annotations to said digital image such that said 
annotations are ^related 9 to said digital image and said digital image is preserved m its 
original^conditicm.^ ^ ^ ^ comprising a present ing mea ns for displaying said 

70 ^^ 5 ^^^*S^^SSin the presenting means further allows a user to 

selectively «J^^«5S^^«ta the annotations can be selectively displayed pursuant 
75 ^ 3 PE 5 e 4 defi T n he d s^tfcl^'sTwtelein the annotations can be selectively displayed pursuant 
to by ^ a ^V- system of claim 52 wherein the ann otations can be selectively displayed pursuant 
to user input received through a graphical user interface. 



55 



WO 2004/057439 j^fc - 145 _ „ n ^KT/US2003/017138 

56. The system of clJ^Pl wherein the presenting teatis ^"'■iad^ J sel u f-e6 i n l tained 
User interface. 
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